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は じ め に 


“コン ピュ ー タ 言語 と し て 何 が よい か ” と いう 議論 が な あります. と くに “パソ コン 用 と 
し て 何 が よい か " と な る と ユー ザー 層 が ひろ い だ け に , 一 層 多 く の 議 論 か あり ます . 最近 
で は , パソ コン 用 言語 と し て は , “BASIC” 対 “C 言語 ” の 対比 と いう 形 で 一 般 化 され て 
いま す . その お の お の の 長所 , 欠点 は いろ いろ な と と ろ で と りあ げ ら れ て いま す の で 省略 
し ます が , 一 言 で いえ ば “BASIC” の フレ ンド リー (親しみ や すい , わか りや すい ) な 
面 は すばらし いと 思い ます . 

“Ouick BASIC" は フレ ンド リー を 残し な が ら , 従来 の BASIC の 欠点 と いわ れ て きた 
① 構 造 化 ,② モ ジェ ュー ル 化 を 可能 に し まし た . イン ター プリ タ 形 式 の よう に , プロ グラ ム 
の 1 行 ど と の 入力 チェ ッ ク を 行い な が ら , 全体 を コン パイ ル す る コン パイ ル 形 に し て いま 
す . コン パイ ル 形 の 場合 、 コンパイル, リン ク と 作業 が 複雑 こ な る の で す が , “統合 環境 
と 呼ぶ エ デ ッ ト (プロ グラ ム の 作成 ) つ コ ン パ イル (オブ ジェ クト ファ イル の 作成 ) ー リ 
ンク (実行 可能 ファ イル の 作成 ) を 簡単 に 行え る 環境 を 準備 し て いま す . 加え て , デバ ッ 
ガ に よる プロ グラ ム の チェ ッ ク も 簡単 に で きる よう に な っ て いま す . つま り , “BASIC" 
の よさ を 残し な が ら “C 言 語 " の よさ を と り と ん で いる わけ で す . し た が っ て , 入門 者 か 
ら 一 般 の ユー ザー ある い は プロ グラ ム 開 発 の 専門 家 ま で , “BASIC” を も ゃ う 一 度 見 直し , 
十分 に 使っ て いけ る よう な 言語 に な っ て いま す . 

本 書 は 「1 準備 編 」 で , “Quick BASIC" の バッ クア ッ プ コピ ー の と り 方 , セッ ト 
アッ プ の 仕方 か ら , ドロ ッ プ ダウ ン メ ニュ ー の 操作 ・ 機 能 を 説明 し て いま す . 編 以降 と 
並行 し て 使っ て くだ さい . 「 IL プロ グラ ム 編 」, 「 想 グラ フィ ッ ク 編 」 は お の お の “Quick 
BASIC” を 使っ た プロ グラ ム の つく り 方 で す .「IV 応用 編 」 で は 従来 の N-BASIC と の 
関連 、 再帰 プロ グラ ム 等 を 紹介 し て いま す . 例題 272 題 , 演習 問題 211 題 , 応用 間 題 20 
題 に よる , “プロ グラ ミン グ 500 題 " シリ ー ズ の 一 環 と し て いま す 

な お , “Quick BASIC” Ver.4.5 (音楽 等 の 機能 が 追加 され て いま す . 編 26 剖 参 照 ) 
が 最新 版 で す が Ver. 4.2 で ゃ 使え る よう に 工夫 し て あり ます . 

確認 用 に 使用 し た 機器 は PC-9801 VM で す . PC-9800 シリ ー ズ で 使え ます が , 一 部 の 
機種 の ハイ レゾ リュ ーション モー ド (XA, LT, XL, XL 2、 RL) で は 使え ませ ん . OS 
は MS-DOS を 使っ て いま す . MS-DOS は 現在 Ver. 3.3 が 最新 で す が 2.0 以上 で 使用 で 
き 家 す : 
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Ver.4.5 の メニ ュ ユー 画面 








[@RPH]】 キー と メニ ュー キー( 


呈 , 介 , W, 胃 , 


 , 9, 回 , 90, 回 ) 





を お すこ と で メニ ュー が 選択 され ます . サブ メニ ュー は 先頭 の 1 文字 を お すか , カー ソル 
を 矢印 キー を 使っ て 動か し し ます . 


N/ 新 規 U/ 元 に 
0/ 読 込 . . . T/ カ ッ 
M/ 結 合 . . . C/ コ ピ 
S/ 保 存 P/ ペ ー 
A/ 名 前 を 変え て 保存 . E/ 削 除 
V/ す べ て 保存 

S/ 新 規 
C/ サ ブフ ァイル 作成 .. . F/ 新 規 | 
L/ サ ブフ ァイル 読込 .  . 
U/ サ ブフ ァイル 解放 ... 
P/ 印 刷 ... 
D/MS-D0S コ マン ド 
X/ 終 了 
F/ 検 索 . . . 
S/ 指 定 文字 列 検索 CTRL+\ 
R/ 次 を 検索 F3 
C/ 置 換 . . . 
L/ ラ ベル 検索 . . . 


戻す GRPH+BS 
ト SHIFT+DEL 
F CTRL+INS 
スト SHIFT+INS 
DEL 
SUB. . . 
FUNCTION.. . 


S/ ス ター ト 
R/ リ スタ ー ト 
N/ 継 続 


C/COMMAND$ の 編集 . . . 


X/ 実 行 フ ァイル 作成 . . 
L/ ラ イブ ラリ 作成 ... 


S/SUB 一 覧 F2 
E/ 次 の SUB SHIFT+F2 
P/ 画 面 分 割 


N/ 次 の ステ ー ト メン ト 
U/ 実 行 画面 F4 


1/ イ ンク ルー ド フ ァイル 細 集 
L/ イ ンク ルー ド フ ァイル 表示 


SHIFT+F5 


F5 


M/ メ イン モジ ュー ル の 設 





A/ ウ ォ ッ チ の 追加 .. . 
1/ 簡 易 ウ ォ ッ チ ... 
W/ ウ ォ ッ チ ポ イント ... 
D/ ウ ォ ッ チ の 削除 ... 
L/ 全 ウォ ッ チ の 削除 


SHIFT+F9 


T/ ト レー ス 
H/ ヒ スト リ 

B/ ブ レー ク ポ イン ト F9 
C/ 全 ブレ ー ク ポイ ント の 削除 
E/ エ ラー 時 強制 中 断 

S/ 次 の ステ ー ト メン ト の 設定 


( 注 ) 





Ver. 4.5 で は イー ジー メニ ュー で た ちあ が り ま す が , 


D/ 画 面 設 
S/ サ ー チ パス 設定 .. . 
R/ マ ウス 機能 選択 . . . 
*Y/ 構 文 チ ェ ッ ク 
* 引 /Full メ ニュ ー 


1/ 索 引 

C/ 目 次 

T/ キ ー ワ ー ド : 
H/ ヘ ルプ の 利用 法 


F1 
SHIFT+F1 


(@RPH) , (O】 で オプ ショ ン メ ニ 


生生 1 知 才 に て み ル アニ ュー を ト し ます 9 店 還 固 セ メ ニ ュー 本 記 





( 注 ) Ver.4.2 と Ver.4.5 の 違い . 




















1 


Ver. | 
Ver.4.5 Ver.4.2 

サ プ メ ニュ ー | 

Y ノ 構文 チェック | 0 プ オ プシ ョ ン | E ノ 編集 
0 ノ ォ プション | 0 プ オ プシ ョ ン | V ン 表示 | 
| ] 
1 ノ 簡 易 ウ ォ ッ チ | D ン デバ ッ グ | な し | 
E ノ エラ ー 時 D ノ デバ ッ グ | な し | 
強制 中 断 | 





言葉 の 違い は 省略 


ーー で マエ か ーー っ ae デット ャ ニー ニー ーー ーー 


Ver.4.2 の メニ ユー 画面 


[GRPHJ キー と メニ ュー キー( 回 , 回, . 
すこ と で メニ ュー が 選択 され ます . サブ プ メ ニュ 





R) , [】 ,  , 団 ) を お 








印 キ ー を 使っ て 動か し し ます . 


N/ 新 規 
0/ 読 込 .. . 
M/ 追 加 .. . 
S/ 保 存 


A/ 名 前 を 変え て 保存 . . . 


V/ す べ て 保存 


C/ サ ブフ ァイル 作成 . . . 
L/ サ ブフ ァイル 常駐 ... 
U/ サ ブフ ァイル 解放 ... 


P/ 印 刷 . . … 
D/MS-DOS コ マン ド 


X/ 終 了 


F/ 検 索 . . . 

S/ 指 定 文字 列 検索 
R/ 次 を 検索 

C/ 置 換 . . . 

L/ ラ ベル 検索 ... 


CTRL+\ 


U/ 元 に 戻す GRPH+BS 
T/ カ ッ ト SHIFT+DEL 
C/ コ ピー CTRL+INS 
P/ ペ ー ス ト SHIFT+INS 
E/ 削 除 DEL 
S/ 新 規 SUB. . . 


F/ 新 規 FUNCTION.. . 


Y/ 構 文 チ ェ ッ ク 


S/ ス ター ト 
R/ リ スタ ー ト 
fx3  N/ 続 行 
C/COMMANDS$ 入力 ... 


X/EXE ファ イル 作成 .. . 
L/ ラ イブ ラリ 作成 ... 


ー は 先頭 の 1 文字 を お すか , カー ソル を 矢 


S/SUB 一 覧 .. … fx2 
E/ 次 の SUB SHIFT+fx2 
P/ 画 面 分 割 


N/ 次 の ステ ー ト メン ト 
U/ 実 行 画面 fx4 


1/ イ ンク ルー ド フ ァイル 編集 
L/ イ ンク ルー ド フ ァイル 表示 


0/ オ プシ ジョ シ ジ 


SHIFT+fx・5 


fe9 


M/ メ イン モジ ュー ル の 設定 ... 


msnmemawoceeー ニ ーー ニー ニュ 


ee 


A/ ウ ォ ッ チ の 追加 .. . 
W/ ウ ォ ッ チ ポ イン ト .… 
D/ ウ ォ ッ チ の 削除 ... 
L/ 全 ウォ ッ チ の 削除 





T/ ト レー ス 
H/ ヒ スト リ 


B/ ブ レー ク ポ イン ト fx9 
C/ 全 ブレ ー ク ボイン ト の 解放 
S/ カ レン トス テー トメ ント の 設 


ーー マー や ーーm=a ョ ニテ ニテ ーー ュー 





H/ ヘ ルプ (fxs1) 


川上 用 川 川 ピ ケタ ダケ ノダ ピ 和 間 間 ケ " ケ 前 員 川間 FEF ビ ピ げ ~ 和 ケ 利 間 ヒ ''~ ケ ええ /~7 ア 昌和 東 煎 吊 人 吊 胃 串 表 串 血 自 促 皿 


ーー 準 供 韻 境 コマ ンド 編 錠 


川 II 用 昨 に リリ 首 首 昨 也 OO リリ 昨 昨 昨 ~OCI 川 川 川中 


1 章 準備 


セット アッ プ ま で に 必要 な ディ スク 
Ver.4.5 (最低 8 枚 ) Ver.4.2 (最低 4 枚 ) 
【 オ リ ジ ナ ル 〕 2 枚 





本 詞 語 話 
バッ クア ッ プ 4 枚 


(フォ ー マ ッ ト し て 使う ) (フォ ー マ ッ ト し て 使う ) 





ト で j コ 


: 使 う 
賠 | 必要 な だ け そ の つど 準備 


デー タデ ィ ス ク (フォ ー マ ッ ト し て 使う ) 


フォ ー マ ッ ト し て 使う 





還 * な だ け そ の つど と 準備 
て 使う 


和 の や oe 


玉 Quiok BASIC を 使う と き の メ イン の ディ スク を , Ver.4.5 で は 『 起 動 デ ィ ス ク 』 と 呼び 、Ver.4.2 で は 『 ワ ー ク 
ディ スク 』 と 呼ん で いる . Ver.4.5 で は 『 ワ ー ク ディ スク 』 の 名 の 別 の ディ スク が ある の で , 呼び 方 注意 し て 下さ い . 





【 例 題 1】 バッ クア ッ プ (メニ ュー 方 式 に よる フォ ー マ ッ ト と ディ スク コピ ー) 
Quiock BASIC の 4 枚 ( バ ー ジ ョ ン 4.2 以下 で は 2 枚 ) の ディ スク を バッ クア ッ プ の た め コ 
ピー せよ . 





【 解 説 】 〇 ディ スク の バッ クア ッ プ を と り ま す . 
1 MD-DOS を 使用 し て バッ クア ッ プ を つく り ま す . 手順 と し て は , 新しい ディ スク の フォ ー マ ッ 
了 








| 準備 ・ 環 境 コ マン ド 編 
と コピ ー で す . MS-DO0S の バー ジョ ン に よっ て 若干 手続 き が 異な り ま す が , 本 書 で は バー ジョ ン 3.・ 
30 # 値 り て 行 n ま す . 

⑱ MS-DO0S の ディ スク を A ドライブ に 入れ, コン ピュ ー タ の 電源 を 入れ ます . 次 の メニ ュー 画面 と 
異な り ま す . 


MS 一 DOS コマ ンド ヌメ ニュ ー (コマ ンド 和 選択 ) Menu v2.20 
F1 README. DOC フ ァイル の 表示 
アプ リケーション の 登録 
F3 フロ ッ ビ ー デ ィ ス ク の 初期 化 


| 
| 

| 

| 

| 

| 

| 中 半 恨 泊 必 世 一 デ ィ ャ タグ の の パッ クア ッ プ 
| 
IF5 固定 ディ スク の 初期 化 
| 

| 

| 

| 

| 

| 

| 

| 


F6 ディ スク 内 全 フ ァイル の コピ ー 

F7 シス テム ファ イル の 転送 

F8 ディ レク トリ 情報 の 表示 

F9 MENU の 終了 
A>TYPE README.DOC 

IMS--DOS を 使用 する に あたっ て の 注意 事項 を 表示 し ます . 
矢印 キー で 項目 を 選択 し 、 リ ター ン キ ー を 押し て くだ さい 








③ 局 ) キー を お し て 2 頁 目 の TB8 に カー ソル を お きま す . 


MI'S-DOS コマ ンド メニ ュー (コマ ンド 選択 ) 2/ 6 Menu v2.20 
FI フロッピ ビ ピー ディス ク 〈B6 4 0 KB イフ 2? ) の 初期 化 ーー デーーーー ーー バ 
F2 フロ ッ ピ ビー デ ィ ス ク 〈(64 0KB タ s イ 2") の バッ クア ッ プ 1 
F3 ディ スク 内 全 フ ァイル の コピ ー (ドラ イブ 指定 ) 

F4 ファ イル 内 容 の 表示 

Fs 日 付 の 表示 と 設定 

F6 時 刻 の 表示 と 設定 

F7 ディ スク の 初期 化 (メニ ュー 形式 ) 

F8 ディ スク の コピ ビ ピーン 申 合 (で メニ ュー 形式 う 

F9 ブフ ロッ ピー ディ スク の バッ クア ッ プ (ドラ イブ 指定 ) 








A>FORMAT %: & DISKCOPY を : を: 


! フ ロッ ピー ディ スク の 複写 を 作成 し ます . (ドラ イブ の 指定 が で きま ます) 
矢印 キー で 項目 を 選択 し 、 リ ター ン キ ー を 押し て くだ さい 








④ に よっ て 次 の 画面 と な り ま す . まず フォ ー マ ッ ト で す . "Ai "の 部 分 が 反転 し て いま す の で 員 ] 
で "Bi "へ 移し ます . 


MS-DOS コマ ンド V 周 記 呈 Menu v2.20 
ーーー ヤー ヤヤ ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー ス へ 








A>FORMAT Bs 3 DISKCOPY %: %: 


矢印 キー で ドラ イプ ブ を 選択 し 、 リ ター ン キ ー を 押し て くだ さい 





) ゅ 】 に より 次 の 画面 と な り ま す . 次 は コピ ー の 元 の ドラ イブ と コピ ー 先 の ドラ イブ の 指定 で す . ま 
ず コ ピー 元 の "Ai "が 反転 し て いま す . 


(ドラ イブ 有 選択 ) 1/ 1 Menu v2.20 
ーー 
| 


1 
| 
1 
1 
| 
| 
1 
1 
1 
1 
1 
| 
| 
1 
| 
| 
| 





ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー-ーーーーーーーーーーーーー 一 
A>FORMAT B: 8 DISKCOPY 為 を : 


矢印 キー で ドラ イブ を 選択 し 、 リ ター ン キ ー を 押し て くだ さい 





⑥ は J に より 次 の 画面 に な り ま す . 次 は コピ ー 先 で すか ら "Bi "へ 反転 を 移し ます . 








A>FORMAT B: 8& DISKCOPY A: 媒 # 


矢印 キー で ドラ イブ を 選択 し 、 


リタ ー ン キー を 押し て くだ さい 


⑦ し ます . 次 の 画面 へ 移り ます . まず フォ ー マ ッ ト を し ます . 
A>FORMAT BB: 
Format Version 4.10 
新しい ディ スク を ドラ イブ B: に 挿入 し 
どれ か キー を 押し て くだ さい 
⑧⑱ 上 の 表示 KC 従 い , 


新しい ディ スク を ドラ イブ B に 入れ [] し ます . 
合わ せま す . 2HD の 1MB タイ プ を 使用 する と 


き は [23 (で す 
A>FORMAT B: 
Format Version 4.10 
新しい ディ スク を ドラ イブ B: だ 挿入 し 
どれ か キー を 押し て くだ さい 
ディ ヌ ウ グ み の タ イプ 宮 1 640(KB) 2 1(MB) 
⑨ フォ ー マ ッ ト が 始ま り ま す . 終了 する 


と 次 の 問 合 わ せ に 入り ます 


次 


て 、 


Menu 


ディ スク の タ 


vV2.20 








イプ を 虹 


A>FORMAT B: 
Format Version 1.10 


B: に 挿入 し 


イプ 1 : 640(KB) 2 : IMB) = 2 
目的 の ディ スク は 1MB EFD で す 


フォ ー マ ッ ト が 終了 し まし た 












フォ ー マ ッ ト 終 了 時 
0 10 40 50 - の 表示 
そこ デ 6g 林 8 AA た * ーー ドー・ EN6 
1250304 バイ ト 全 デ ィ ス ク 容 量 
1250304 バイ ト 使用 可能 ディ スク 容量 
別 の ディ スク を フォ ー マ ッ ト し ます か <Y/N) ーー 終了 の 問 合 わ せ 


⑯ 今回 





は 4 枚 フ ォ ー マ ッ ト し ます . バー ジョ ン 4・2 以下 で は 2 枚 で す . し た が っ て , [YJ] と し ます . 

⑪ B ドラ イブ の ディ スク を と り , 新しい ディ スク を 挿入 し は J し ます . 同じ よう に フォ ー マ ッ ト が す 
むと 次 の フォ ー マ ッ ト の 問 合 わ せ と な り ま す . 

別 の ディ スク を フォ ー マ ッ ト し ます か (Y/N) 訪 


新しい ディ スク 


を ドラ 
どれ か キー を 押し て く 


pn 


プ B: に 挿入 し 
で さい 


目的 の ディ スク は 1MB FD で す 


フォ ー マ ッ ト が 終了 し まし た 
0 10 20 30 40 50 60 70 80 90 100 


1250304 バイ ト 全 デ ィ ス 
1250304 バイ ト 使用 可能 


IN: 


容量 
ィ ス 


別 の ティ スク を ブフ - 





⑫ [YJ を お し て , B ドラ イブ か ら る 枚 目 の デ ィ ス ク を と り 3 枚 目 を 入れ 人 し ます . フォ ー マ ッ ト が 
終わ る と 次 の フォ ー マ ッ ト の 間 合 わ せ と な り ま す . 
⑬ フォ ー マ ッ ト を 終了 し ます の で 【[NJ と し ます . 
別 の ディ スク を フォ ー マ ッ ト し ます か 〈Y/N) 計 
⑫ パッ クア ッ プ に 入り ます . パッ クア ッ プ は ディ スク の コピ ー で す : 


別 の ディ スク を フォ ー マ ッ ト し ます か (Y/N) n 
A> DISKCOPY Ai Bi 


DISKCOPY version 4.00 





| 準備 ・ 環 境 コ マン ド 編 





⑮ A ド ライ ブ の DO0S の ディ スク を ぬき , Quick BASIC の "セッ ト ア ッ プ "(バー ジョ ン 4.2 以下 
で は ”" プ ログラム” ) デ ィ ス ク を 入れ ます . B ドラ イブ で は 今 フ ォ ー マ ッ ト の 終わ っ た ディ スク が 入っ 


て いま すか ら そ の まま し ます . 
⑯ A ド ライ ブ の ディ スク が B ドラ イブ の ディ スク に コピ ビ ピー され ます . 終了 する と 次 の 問 合 わ せ と な 


り ます . に より 次 の コピ ー を 行い ます -. 

A> DISKCOPY A: B: 

DISKCOPY version 4.00 

ディ スク の コピ ー を 行い ます 

コピ ー は 終了 し まし た 

も う 一 

⑰ ドラ イブ A を Quiok BASTC の "コン パイ ラ ” (バー ジョ ン 4.2 以下 で は "ライ ブラ リ ”) ディ ス 

ク に 入れ か え , ドラ イブ B は 新しい フォ ー マ ッ ト ず み の デ ィ ス ク に 入れ か えて し ます . バー ジョ 
ン 4.5 で は 同様 に "ライ ブラ リ "ディ スク , "アド バイ イザ” ディス ク の コピ ー を と り ま す . バッ ク 
アッ プ が 終っ た ら ド ライ ブ A を DOS の ディ スク と 入れ か え , B ドラ イブ は ディ スク を と り 出 し ます . 

DISKCOPY version 4.00 

ディ スク の コピ ー を 行い ます 

コピ ビー は 終了 し まし た 


准 


⑬ キー を お す と DOS の メニ ュー 画面 へ も どり ます . 





【 例題 23】 ファ イル の 確認 
バッ クア ッ プ され た ディ スク の ファ イル を 確認 せよ . 











【 解 説 】 ②③ バッ クア ッ プ ファ イル の 内 容 の 確認 を し ます . 
① バッ クア ッ プ され た ディ スク の ファ イル を 確認 し ます . 次 の よう に な っ て いれ ば コピ ー は 完全 で す . 


[ Ver.4.5 ] 


ドラ イプ B: の ディ スク の ポリ ュー ムラ ベル は あり ませ ん . (セッ ト ア ッ プ ・ 
ディ レク トリ は Bi: ディ スク ) 


PACKING LST 13570 89-10-17 18:09 


QBE DOC 4475 89-09-06 18:33 
README DOC 4673 89-10-13 15:40 
SAMPLE DOC 2942 89-10-13 14:22 
SETUP EXE 61441 89-10-13 19:12 
SETUP ae@ 3244 89-10-13 19:53 
SAMPLE く DIR> 89-10-18 16:27 
LEARN く DIR> 89-10-18 16:29 
TRD07 TXT 8425 89-10-17 22:44 


放 準 備 


rspeanmooeaemanpーー= ーー ンー エッ ニニ ーー ニー ニー EESaaasasa 





ーー デュ 





9 個 の ファ イル が あり ます . 
690176 バイ ト が 使用 可能 で す . 
ドラ イブ B: の ディ スク の ボ ポリ ュー ムラ ベル は あり ませ ん . (ラン ツラ ャ 
ディ レク トリ は B:\ ディ スク ) 
BIN く DIR> 89-10-18 16:29 
MOUSE く DIR> 89-10-18 16:30 


2 個 の ファ イル が あり ます . 
107520 バイ ト が 使用 可能 で す . 


ドラ イブ プ B: の ディ スク の ボリ ュー ムラ ベル は あり ませ ん . (ライ ブラ リ ・ 
ディ レク トリ は B:\ ディ スク ) 
LIB <DIR> 89-10-18 16:32 
USERLIB <DIR> 89-10-18 16:33 
電 - ン 導 生 人 寺 き 生 す < 
545792 バ が 使用 可能 で す . 
ドラ イプ か つき 条 導 休め の 合 放 2 (アド バイ ザ ・ 
ディ レク トリ は B:\ ディ スク ) 
QBADVR <DIR> 89-10-18 16:35 
1 個 の ファ イル が あり ます . 
591872 バイ ト が 使用 可能 で す . 
Ver.4.2 ] 
QB_ENV <DIR> 88-12-15 4:20 (プロ グラ ム デ ィ ス ク ) 
QB_CMP <DIR> 88-12-15 4:20 
LIB_E <DIR> 88-12-15 4:20 
SETUP DoC 2763 88-12-15 4:20 
SETUP EXE 30198 88-12-15 4:20 
PACKING LST 3303 89-01-15 4:20 
README DOC 7832 89-01-15 4:20 
SAMPLE DOC 4196 89-01-15 4:20 
8 個 の ファ イル が あり ます . 
176128 バイ ト が 使用 可能 で す . 
LIB_A く <DIR> 88-12-15 4:20 (ライ ブラ リ デ ィ ス ク ) 
SOURCE <DIR> 88-12-15 4:20 


2 個 の ファ イル が あり ます . 
818176 バイ ト が 使用 可能 で す . 





準備 ・ 環 境 コ マン ド 編 


= ニュー ュー テニ ニ ーーーmsaーaeero ア ーー ュー ドコ で ニー ンー も ーー ニー エー テース ーーー ニー ユー ニー と ーー 





②⑨ 確認 は 次 の よう に し ます . MS-DOS 8.50 の 場合 は メニ ュー 画面 か ら "8 "を 選び ます . 


メニ ュ ユー 


IF1 README. DOC フ ァイル の 表示 
1 本 アプ リケーション の 登録 

3 フロ ッ ピ ビー デ ィ ス ク の 初期 化 

1 フロ ッ ウッ ビ ピー デ ィ ス ク の バ パック アッ プ 

| ps 固定 ディ スク の 初期 化 
| 

| 

| 

| 

| 

| 

| 


F6 ディ スク 内 全 フ ァイル の コピ ビー 
F7 シス テム ファ イル の 転送 
F8 ディ レク トリ 情報 の 表示 
F9 MENU の 終了 
A>DIR を : /P 
1 ディ レク トリ の 内 容 を 表示 し ます . 
矢印 キー で 項目 を 選択 し 、 リ ター ン キ ー を 押し て くだ さい 


け ・ 
1989-08-20 


Menu V2.20 


I 
1 
[ 
| 
I 
| 
1 
| 








⑬ 加 を し ます . 次 の 画面 で "B: "を 選び , ディ スク を B ドラ イブ に 入れ に し ます . "Ai ” を 選ん 


で ディ スク を 4 ドラ イブ に 入れ て [。』) し て も 同じ です. 





A>DIR B: /P 


矢印 キー で ドラ イプ を 居 択 し 、 リ ター ン キ ー を 押し て くだ さい 


(〈④④ メニ ュー を 使わ な い 場 合 は B ドラ イブ に ディ スク を 入れ て 


DIR B: 
ある い は A ド ライ ブ に ディ スク を 入れ て 
DIR Ai で きま 


Menu V2.20 











で 





ーー デー そっ つ ema テ ーー スー ニー 


っ Pe で 








(ふだん 使う Quick BASIC 用 ディ スク ) 


【 例 題 3】 フォ ー マ ッ ト 
新しい ディ スク を フォ ー マ ッ ト せ よ . 








【 解 説 】 フォ ー マ ッ ト を し ます . 
① 新しい ディ スク の フォ ー マ ッ ト を し ます . 
A ドラ イブ KC MS-DO0S の ディ スク を 入れ 電源 を 入れ ます . メニ ュー 方 式 に よる フォ ー マ ッ ト 例 は 

【 例題 1】 の と お り で す . こと と で は メニ ュー 方 式 に よら な い 例 を 示し ます . メニ ュー か ら を お 


③) 


し ます . 
A> 

の 表示 と な り ま す . 

3 次 の よう に か き [] し ます . 


A>FORMAT B: 
【 例 題 1】 の 項 の と な り ま す の で , B ドラ イブ に 新しい ディ スク を 人 入れ [。) し ます . 続い て 1MB 


(④ 
の 指定 の た め 2) と し ます . 
フォ ー マ ッ ト が 終る と 次 の フォ ー マ ッ ト を する か どう か を 問 合 わ せま す . 
別 の ディ スク を フォ ー マ ッ ト し ます か 〈Y/N) y 
⑥ [YJ を お す と 同じ 手順 で ,. 新しい ディ スク を B ドラ イブ に 入れ , [3] と し ます . 
バー ジョ ン 4.5 で は 2 枚 は Quiok BASIC の ワー ク デ ィ ス ク 
バー ジョ ン 4.2 以下 で は デー 


3 枚 フ ォ ー マ ッ ト を し て 下さ い . 
1 枚 は Quiock BASTC の デー タ 用 で す . 
別 の ディ スク を フォ ー マ ッ ト し ます か [Y/R] で 


と アド バイ ザ デ ィ ス ク 用 , 
タ 用 の み 1 枚 で す . フォ ー マ ッ ト を 終了 し た と き , 


(⑦ 


[N] を お す と 終了 し ます . 


【 例題 4】 バッ クア ッ プ ( 非 メ ニュ ー 方 式 ) 
Quiok BASIC の 4 枚 (バー ジョ ン 4.2 以下 で は 2 枚 ) の ディ スク を バッ クア ッ プ コピ ー 








せ よ 。 





【 解 説 】 〇 バッ クア ッ プ コピ ー を と り ま す . 
① メニ ュー 方 式 を 使わ ず C, バッ クア ッ プ ・ コ ピー を と り ま す . 
メニ ュー か ら TF9 を お し A> と し ます . A> か ら 次 の よう に か きま す . 


A>DTSKCOPY A:B: 
A ドラ イブ か ら B ドラ イブ ヘコ ピー する 命令 で す . し ます . 
次 の 表示 C に な り ま す の で A ドライブ KGQuick BASIC の "セッ ト ア ッ プ "(バー ジョ ン 4.2 以 下 
で は "プログ ラム ”") ディ スク を 入れ ,B ドラ イブ に フォ ー マ ッ ト し た ディ スク を 入れ 〔) し ます . 


GO) 
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ーー* さ ペニー ニュ ーー テー デキ っ ニー = マニ です で ーー て wa エーーー ュー 





DISKCOPY version 4.00 


ディ スク の コピ ビー を 行い ます 

送り 側 デ ィ ス ク を ドラ イブ A: に 挿入 し て くだ さい 
受け 側 デ ィ ス ク を ドラ イブ B: に 挿入 し て くだ さい 
準備 が で て きた ら ど れ か の キー を 押し て くだ さい 


〈①④① ディ スク の コピ ー が 終る と 次 の 表示 と な り 次 の コピ ー を する か どう か 問 合 わ せま す . 
し た 


コピ ビ ピー は 終了 し ま 
も る う 一 度 実 行 し ます か (〈Y/N)Y 
⑤ を お す と 項 ③ へ も どり ます の で A ド ライ ブヒ に Quick BASIC の" コンパイラ” (バー ジョ ン 
4.2 以下 で は "ライ ブラ リ ") ディ スク , B ドラ イブ に フォ ー マ ッ ト し た 別 の 新しい ディ スク を 入れ 
で し ます . 
コピ ー が 終る と 項 ④ の 問 合 わ せ と な り ま す . バー ジョ ン 4.5 で は 同様 に "ライ ブラ リ "ディ ス ク , 
"アド バイ ザ ”" デ ィ ス ク を コピ ー し ます . コピ ー が 終っ た ら 次 へ すす み ま す ・ 
⑥ A ド ライ ブ K DO0S8 の ディ スク を 入れ , B ドラ イブ は コピ ー ず み の デ ィ ス ク を 抜い て [N) と し ます . 
バッ クア ッ プ は 終了 で す . 





【 例 題 5】 シス テム 付 フ ォ ー マ ッ ト 
新しい ディ スク を シス テム 付き で フォ ー マ ッ ト せ よ . 











【 解 説 】 ③ シス テム 付 フ ォ ー マ ッ ト を し ます . 

① Quick BASTC の 起動 ディ スク (バー ジョ ン 4.2 以下 で は ワー ク デ ィ ス ク ) を つく る ディ スク は 
シス テム 付き の ディ スク に セッ ト ア ッ プ する 必要 が あり ます . その た め シ ステ ム 付 フォ ー マ ッ ト を 1 
枚 行 いま す . 

③ DOS の ディ スク を A ド ライ ブ に 入れ 電源 を 入れ ます . メニ ュー 画面 で [f 9】 を お し A> と し ,A> で 
次 の よう KC 記入 し ます . 

A>FORMAT Bi/S 
③ に よっ て ,【 例 題 1】 と 同じ 手順 で フォ ー マ ッ ト が 行わ れ , 終了 し ます . 


Format Version 4.10 





新しい ディ スク を ドラ イブ B: に 挿入 し 新しい ディ スク を B 
MI か キー を 押せ で くだ さい ドラ イブ c 入 れ 加 
ディ スク の タイ プ は 1 : 640(KB) 2 : 1(HB) = 調 一 一 一 づ 句 


目的 の ディ スク は 1MB FD で す 


フォ ー マ ツ ッ ト が 終了 し まし た 
0 10 20 30 40 50 60 70 80 90 100 


7 の 


1 章 準 備 


Py = モー= ェ Ws 


シス テム を 転送 し まし た 





1250304 バイ ト 全 デ ィ ス ク 容 重 
120832 バイ ト シス テム 領域 
1129472 バイ ト 使用 可能 ディ スク 容 重 
別 の ディ スク を を フォー マット し ます か (Y/N) NM で 終了 


(〈④ と の ディ スク を DIR で みる と COMMAND .COM と いう ファ イル が 1 つ 入 っ て いま す (正確 に は 他 
に 2 つの か くれ た ファ イル が コピ ー さ れ て いま す ). 
A> 本 抽 5 


COMMAND COM 24931 88-07-1 

1 個 の ファ イル が あり ま 

1129472 バイ ト が 使用 可能 で す . 

これ を シス テム 付き ディ スク と いい ます . と の ディ スク を 使う と DOS を 立ち あがら す と と が で き 

ます .【 例 題 1】 で つく っ た ディ スク は シス テム が あり ませ ん . し た が っ て , DIR で みる と ファ イル 
が 入っ て いま せん . 
A> 頭 還 軸 5 


イブ B: の ディ スク の ボリ ュー ムラ ベル は あり ませ ん . 
レク トリ は B:\ 


ファ イル が 見 つか り ま せん ・. 


3 0:00 
ま 。 


2 
(1 





【 例題 6】6 セッ ト ア ッ プ 
Quiok BASTC を セッ ト ア ッ プ せよ . 








【 解 説 】 〇 Quiok BASIC を セッ ト ア ッ プ し ます . 
① DO0S の ディ スク を A ドラ イブ に 入れ , 電源 を 入れ て , DOS を た ちあ が ら せ ま す . 日 付け , 日 時 を 
セッ ト (また は る 回 J キー を お す ) する と 次 の A プロ ンプ ト と な り ま す (メニ ュー 方 式 の 場合 は 
[f・9) を お す ). 
A> 
⑨③ まず バー ジョ ン 4.5 で の セッ ト ア ッ プ を 説明 し ます . 新しい シス テム 付き フォ ー マ ッ ト す み の 
ディ スク 1 枚 と , シス テム な し ディ スク 24 枚 を 用 意 し ます . 
③ A ド ライ ブ に セッ ト ア ッ プ ディ スク を 入れ ます . 次 の よう に 入力 し ます . 
A>SETUP| [] 
④ あと は 画面 の 指示 に 従 うだ け で す が , 順 を 追っ て みて いき ます . 
まず セッ ト ア ッ プ ユー ティ リティ に より メニ ュー が 出 ます . 
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Qu i ckEBAS】IC セッ トト アップ ユー テディ リティ Version 1.00 


米 涼 玉 来 玉 玉 玉 来 末 く 2 三 ニー コ ーー > 玉 玉 素 来 来 玉 来 玉 素 氷 来 玉 来 玉 玉 来 来 玉 玉 玉 玉 玉 氷 来 来 玉 永 来 玉 水玉 玉 


EE 'BAS1IC の 利用 環境 を 作成 し ます 。 
2. GE を 作 方 法 の 説明 を 行い ます 。 
3. セ ・ ?> き 了 し ます 。 


藻 の 
ざ 竹 叶 色 上 NO 


親 
夷 rr 舞 球 選 


合 共 MM SN 吾 み 
刻 寺 餅 
( ド 」 あ :| 
は は: 





1 の "Quiok BASIC の 利用 環境 を 作成 し ます "を 選ぶ た め , "1" を 入力 し ます . 1) 回 で す . 


QuickKBASIC セッ ト ア ッ プ ユー ティ リティ Version 1.00 
人 @ 転 送 元 の ドラ イブ 名 を 設定 し て くだ さい?A 


に ライ ブ 名 を 設定 し て くだ 
1 





オリ ジ ナ ルディ スク の 入る ドラ イブ を 指定 し ます . 人 選 と し ます . オリ ジ ナ ルディ スク は 常に 
4 ドラ イブ に 入れ , ふだん 使う ディ スク は B ドラ イブ に 入れ て セッ ト ア ッ プ する も の と し ます . 


7 ク 


8 
ど 0 据 ビ 
っ ま 攻 に 
還 じ FU 
テ s8 ふ 層 6 
に K お 
トリ トコ や 
AI 1 ト (の 
ント の ーー 
じ 親 回 7 
生 2 8 回 9 本 
ド 手 を * 
べ 百 條 。 電 玉 
的 SG ふ ふ Seh 遇 
Y W に 。 。KK ち 公 つ Ma に 
人 トペ 柱 + ゞ 羽 ト っ リ 條 回 つね 
= ャ , 翌 U ト UK 固 ー 。 人 = 二 
ャ マイ 心 GG 幸 移っ で て us 
條 c: 画 4m ふ が せ の や 0 條 なさ ぐ ピ 
1 2 っ 可 Ne 昧 KoGO も 恩 遇 ] 還 ! ド ペ つ 
4 も 加 pe て せ 加 ロロ O ン il 和 
凡 押 さき は 蘭 | すじ PE | 中 
h ヾ 1 1 ミ 1G@ の コロ つ 6 い ミ つ @ っ て 
5 た) ー | ロン 中 調 つ 還 に に 
ト つ 守 ベー 人 中 じ お 所 天 Ns ト 信博 固 
ー 収 旧 ATK 日 やつ O 宮 の 3 疾 ! ,GN 
か 店 財 て へ 。 ト まめ NN 守 記 ! て 
や 人 も に よっ らい て 、 や 誠 !> ト 
5 ! s 人 5 人 
〇 4 者 冥 虹 て 衣 ト 届 3 
O ht ー ふ 尋 ー 他 は トス ー を Oo NO ! で G 層 
ー ヾ 明 の ベン SG 幸江 公 NG ー 孝史 詳 
の 記 イマ じじ 覧 」 補っ や や の ! <QG 
マ mit ト つ 1 トト m じ 同 ト マ 梓 「 じ で 回 
マミ 夫 ネロ SG 交 紅 ト m 器 ! 選定 
当 o 揚 トン に ピル し が マ Si 記 
o ーー 色 交 色色 3 o 回 SE に 3 
人 コロ ッッ ー の 〇 の 疾 じ や ー 当 「 記 和 @ 
う づい 9 習 つ に に) { 衣 5 ョ レン 8) 
ざ (Sp ざ 






B ドラ イブ に セッ ト ア ッ プ する ディ スク を 人 入 
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JJ と し ます . 


リ 


4 


設定 の 可否 を 確認 し ます . A& ドラ イブ を オリ ジ ナ ル , 


れ ま す の で , 
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⑧③ 


Qu ickBASIC セッ ト ア ッ プ ユー ティ リティ Version 1.00 
人 数 値 演算 ライ ブラ リ を 選択 し て くだ さい [IL:Alt Math / 2:Emulator Math]? 1 


虹 


で 】 


に る > っ 1 還 に た だき くす の) 


ri 
名 
ふ 四 


イン ター プリ タ の ファ イル 名 は 
し な お 、 セ ッ ト ア ッ プ 
ます 。Emulator 版 を ご 使 


整 寺 古寺 7 


ど 
報 
大 


ーー ン 


ユー ティ リティ Version 1.00 


迄 択 し て くだ さい [1:Alt Math / 2:Emulator Math]? 1 
tY/ZN12 Y 





マウ ス の 使用 また は 不 使用 を 入力 し ます . 使用 する と き は [Y] ) で す . 


7 イチ 


セッ トト アップ ユー ティ リティ Version 1.00 


リ を 和 選択 し Pe くだ さい [1:Alt Math / 2:Emulator Math]? 1 
か 〔Y/N] ? 
選択 し て なき い tt: バ スマ ウス / 2: シ リア ル マ ウ スコ 1 





マウ ス を 使用 する と き マ ウス の 種類 を 問 合 わ せま す . バス マウ ス の と き は し 較 , シリ アル マウ 
ス の と き は [3 加 で す . 


立正 ア 選 ダグ 区 ーー ディ リティ Version 1.00 


択 し て くだ さい [1l:Alt Math / 2:Emulator Math]? 1 
/N]? Y 

て くだ さい [1l: バ スマ ウス / 2: シリ アル マウ ス 】1 

し て 下 き い E1iNOUSE。SYS rMOUSE. し っ バン 


ONFIG.SYS 全う 人 ン に あ 代 計 末 
に 応じ て 常駐 、 解 放 可 能 な 2:MOUSE.COM が あり ます 
ませ ん が 、 メ モリ 解放 が で きる た め MOUSE.COM を 和 択 


の 方 は 、1:MOUSE.SYS を 必ず 迄 択 し て くだ さい 。 





マウ ス ド ラ イ バ を 入力 し ます . 通常 は 名 M で す . 
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ーー や エー テー>c っ ーー ニュ ュー テー 


Version 1.00 


バス マウ ス / 2: シ リア ル マ ウ ス 11 
MOUSE.SYS 2:MOUSE.COM]? 2 
[か (Y/NJ? Y 


【1: 
NE 


OC。 SAMPLE.DOC,。 QBE.DOC な ど QuickB 
な ドキ ネ キュ メ ント ファ イル が 含ま れ て いま す 。 
スク も し く は ハー ド デ ィ スク の DOC ディ レク 





を 問 合 わ せま す . ドキ ュ メ ント ファ イル は Quiok 


ドキ ュ メ ント ファ イル の コピ ー を する か どう ヵ 
する 必要 は あり ませ ん が , 一 読 する 必 


BASIC を 使う 上 で の 注意 事項 等 が か いて あり ます . コピ ー 
要 は あり ます . 既定 値 は [Y] で す . 
⑬ 


アグ は デデデ ィ リ ティ Version 1.00 


し て くだ さい [1l:Alt Math / 2:Emulator Math]? 1 
1 タダ 


一 : 


ti: パス マウ ス / 2: シ リア ル マ ウ ス 1]1 
1:MOUSE.SYS 2:MOUSE.COM] ? 2 
AA Y 


NN 
1 

で 沙 で ざさ 員 計 
boo 1 





サン プル プロ グラ ム を 転送 する か どう か を 問 合 わ せま す . サン プル プロ グラ ム の 転送 は 必ず し ゃ 必 


要 が あり ませ ん が , 転送 する と コマ ンド 類 の 説明 が わか りや すく な っ た り , サン プル プロ グラ ム を 利 


7 の 


sc っ ce で am エー ター ュー 





ee そ ネ ネッ ピニン エー ュー トー トー コー ラー アー ネッ ec ニュ た ーーー っ ee 


旧 し た りす る と と が で きま す . 既定 値 は 38 ポ 

















さ 


ッ プ ユー ディ リプ ィ Version 1.00 
くだ さい [1:Alt Math / 2:Emulator Math]? 1 
普 


Ci スマ ウツ サス /2 ュ ツリ デル マ ヅ スス 1 
[1:MOUSE.SYS 2:MOUSE.COM]? 2 

すか LC(Y/N]2ZY 

か [Y/N]? Y 


本 で 英 ご ざき 
(he 1 


ぼ 
ま 
選 
を 
ァ 
ピ 


と ユ 代 添 千 ご 





以上 の 設定 の 確認 を 行い ます . 良い 場合 は で す . 悪い 場合 は で す . [の 場合 は 最 
初 か ら 人 力 し な お し ます . 
⑮ 続い て , 次 の 表示 に 従っ て , "プロ グラ ム デ ィ ス ク " を A ドラ イブ に , "起動 ディ スク "を B ド ラ 
イブ に 入れ [し ます . ま BTN 科 QB.EXE 以下 の ファ イル を B ドラ イブ へ ヘコ ピー し ます . 


Qu i ckBASIC セッ ト ア ッ プ ユー ディ リティ Version 1.00 





⑯ 以降 は 画面 の 指示 で ディ スク を 入れ か えま す . セッ ト ア ッ プ の 手続 き が お わる と (④ へ も どり ます 
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の で , [3 で セッ ト ア ッ プ は 終了 で す . 
起動 ディ スク が Quick BASTC を 使う と き の メ イン の ディ スク で す . 
⑰ バー ジョ ン 4.2 で の セッ ト ア ッ プ は 次 の 手順 と な り ま す . Quick BASITC の プロ グラ ム デ ィ ス 
ク を B ドラ イブ に 入れ ます . B:setup っ) と し ます . まず Quick BASTC セッ ト ア ッ プ ユー ティ 
リティ の 説明 が 表示 され ます . 続い て セッ ト ア ッ プ に 関す る 質問 が 続き ます . 
セッ ト ア ッ プ を 開始 し ます か [Y/N]? 
ハー ド デ ィ スク に セッ ト ア ッ プ し ます か [Y/R]? 
Quick BASTC を どの ドラ イブ に イン スト ー ル し ます か ? 
マウ ス を 使用 し ます か [Y/N]? [Y] 
マウ ス の 種類 を 選択 し て 下さ ぃ [1: パ ス /2: シ リア テル]? 【] 器 
マウ ス ド ラ イ バ を 選択 し て 下さ い [1:MOUSE.SYS/2:MOUSE.COM]? 
上 記 の 設定 で よろ し いで すか [Y/N]? 
以上 に よっ て セッ ト ア ッ プ が 始ま り ま す . 今回 の 例 は 上 の よう に し て いま す が 自 分 の 組合 わせ 設定 
を 行い ます . と の 中 の "Quiok BASIC を どの ドラ イブ に イン スト ー ル し ます か "は ふだん 使う ワー 
ク デ ィ ス ク の 入っ て いる ドラ イブ を 指定 し ます . 今回 は ワー ク デ ィ ス ク を A ドラ イブ KC 入れ ます . 
後 は 画面 の 指示 どおり 行っ て 下さ い . 
セッ ト ア ッ プ が 終り ます . 
ワー ク デ ィ ス ク の み A ドラ イブ に の と し ます . 今後 は と れ が Quiok BASTC を 使う と き の メ イン 
の ディ スク と な り ま す . 
⑱⑬ な お , デー タ を 収納 する ディ スク は , バー ジョ ン 4.5 で も 4.2 で も る フォーマット (シス テム な 
し ) ずみ の ディ スク で す . 





【 例題 7】 プリ ンタ の イン スト ー ル 
プリ ンタ の イン スト ー ル を せよ . 











【 解 説 】 〇 ③⑨ プリ ンタ の イン スト ー ル を し ます . 
①④ DO08 の バー ジョ ン に よっ て は 印刷 が で き な い も の が あり ます . 次 の 表 の と お り で す . た と えば , 
DO0S バー ジョ ン 5.5 で は と の まま で は 印刷 が で きま せん . 次 に 印刷 の で きる よう に し ます . 





キーーーーー ニ ーーーーーーーーーーーーーーーー ニ ーーーーーーーーーーー ニ ーーー 一 キーーーーーー ニ ーーーー キ 
IMS-DOS の バー ジョ ン IPRINT.SYS i 
キーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー キーーーーーーーーーー H 
IMS-DOS Ver.2.0 (PS98-121-XXX) 1! 不要 ! 
H (PS98-122-XXX) 1 ヶ ! 
! (PS98-123-XXX) ! ヶ 1 
!MSmDO8IVerI3I| (PS98-125-XXX) 1 ク ! 
! (PS98-127-XXX ) 6 ヶ H 
! (PS98-129-XXX) 1 ク 1 
ま て お の ロ ママ ま 』 ま 
い か ( ! 
キーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー ニ ーーー + ャ ーーーーーーーー ニ ーー + 


②③ MS-DOS の PRTNT .SYS と PRINT .EXE の ファ イル を コピ ー し ます . DOS を 4A ドジ ライ デ に 入れ 
ます . まず DIR As に よっ て PRINT.SYS お よび PRINT.EXE の ファ イル が ある と と を 確認 
7 ざ 








PP 
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し ます . 別々 の ディ スク に 入っ て いる も の が あり ます . その 場合 は DOS の ディ スク を その つど 交換 
し て くだ さい . まず , PRINT.EXEE が あっ た と し ます . B ド ライ ブ に は バー ジョ ン 4.5 で は 起動 
ディ スク 4.2 で は ワー ク デ ィ ス ク を 入れ ます . 
COPY AiPRTNT.EXE Bi [g] で す . 
次 に A ドラ イブ KC PRINT.SYS の 入っ て いる ディ スク を 入れ ます . 
COPY A:PRTNT.SYS B: [』J] で す . 
これ に よっ て 2 個 の ファ イル が 起動 ディ スク また は ワー ク デ ィ ス ク へ ヘコ ピー され まし た . 
③ 次 に CONEIG.SYS の 内 容 を 変更 し ます . 
A プロ ンプ ト か ら 次 の 手順 で CONEIG .SYS の 内 容 を か きか えて 保存 し な お し ます . 
A>QB [] 
クイ ッ ク ベ ー シ ッ ク の 初期 画面 と な り ま す . 
(@RPH) , (F) , (9 ,@(@9M 間 回 回 ⑳ 品 国人 軌 人 回 
次 の CONTTG .SYS の 内 容 が 表示 され ます . 














Ver.4.5 [ Ver.4.2 ] 
SHELL=A:\COMMAND .COM A:\ /P FILES=20 
FILES=20 BUFFERS = 20 


BUFFERS = 10 


カー ソル を 最後 の 行 へ お き 次 の よう に か き 加 えま す . 


[ Ver.4.5 [| Ver.4.2] 
SHELL=A:\COMMAND .COM A:\ /P FILES=20 
FILES=20 BUFFERS = 20 
BUFFERS = 10 device = BYint。SsySs 
DEVICE = PRINT.SYS 


[GRPH] 、 (て よっ て , 新しい CONETG.SYS の 内 容 が 保存 され まし た . と れ で プリ ンタ 
が 使え ます . 一 度 電源 を お と し ます 





【 例 題 8】 日 本 語 フ ロン ト エ ンド プロ セッ サ の 組み 込み 
日 本 語 フ ロン ト エ ンド プロ セッ サ を 組み 込め . 








【 解 説 】 〇 日 本 語 フ ロン ト エ ンド プロ セッ サ を 組み 込み ます . 
① 日 本 語 を 使う た め に は 日 本 語 フ ロン ト エ ンド プロ セッ サ を 組み 込む 必要 が あり ます . て の 手順 は 
【 例題 7】 で 印刷 の た め に 関連 の ファ イル を 組み 込み 、 CONFIG の 内 容 を か きか えた の と 同様 で す . 
③ と と で は ATOK を 組み 込み ます . ATOE の 入っ て いる 一 太郎 等 の ディ スク を 準備 し て くだ さい . 
DOS を A ドラ イブ に 入れ 電源 を 入れ て , 日 , 時 を 入力 し て DOS を た ちあ げ A プ ロン プ ト と し ます . 
A ドラ イブ KC ATOEK6A.SYS, ATOK6B.SYS の 2 る つの ファ イル の ある ディ スク を 和信 れ ます . B ド 
ライ ブ に ワー ク デ ィ ス ク (バー ジョ ン 4.5 で も 4.2 で も ワー ク デ ィ ス ク ) を 入れ ます . 
COPY A:ATOK6A.SYS B: 
COPY A:ATOK6B.SYS Bi 
79 
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と の 2 つ に よっ て 2 つの ファ イル が B ドラ イブ の ディ スク に か きこ とまれ ます . 
⑬ な お , 次 の よう KC 1 度 で コピ ー す る と と も で きま す . 
A>COPY al 
A:ATOK6A.SYS 


A:ATOK6B.SYS 
2 個 の ファ イル を コビー し まし た . 


④ 次 IC ATOE.DIC で す が , とれ は 漢字 の 辞書 で 非常 に 量 が 多い の で 起動 また は ワー ク デ ィ ス ク に 入 
り ま せん 。 し た が っ て , デー タデ ィ ス ク に コピ ー し ます -. 
A ド ライ ブヒ ATOK.DTC の 入っ て いる ディ スク , B ドラ イブ に デー タデ ィ ス ク を 入れ ます 
COPY ATOE.DTC Bs [| に より コピ ー さ れ ま す . 


op デア ュー コー ミロ 


⑤ 次 CK CONFIG.SYS を か き な お し ます . まず バー ジョ ン 4.5 で は ATOK を ワー ク デ ィ ス ク に か き 
まし た の で 次 の よう に し ます . 起動 ディ スク (バー ジョ ン 4.5) を A ドラ イブ に 入れ , 電源 を 一 度 
きっ て 入れ な お し て DO0S を た ちあ げ ま す . A プロ ンプ ト か ら 次 の よう に し ます . 

4>[9J(B) 

Quick BASTC が た ちあ が り ま す . Quiok BASIC の 初期 画面 と な り ま す 

(GRPHJ , [F) , 9) , (同名 @(( 軌 倍加 に より CONFIe .SYS の 内 容 を 表示 さ 
せま す . 次 の よう C か き 加 えま す 


DEVICE = B:ATOK6A.SYS / D = B/S=1/E=1/B=0 
DEVICE = B: ATOK6B.SYS 























(GRPHJ , [F) , (8} で この 内 容 が 保存 され ます . と れ で 起動 ディ スク (バー ジョ ン 4.5) は 完成 
で す . 
⑯⑥ バー ジョ ン 4.2 で は ワー ク デ ィ ス ク KC ATOK を か きま し た の で , 次 の よう に し ます . ワー ク デ ィ 
スク (バー ジョ ン 4.2) を A ドラ イブ に 入れ , 項 ⑤ と 同様 に し て Quick BACTC を 立ち 上 が ら せ , 
CONETG.SYS を 次 の よう に か きか え 保 存 し ます . 


ト エーーー tes 


⑦ な お と の ディ スク を その まま コピ ー し て お く と , 今後 ディ スク の セッ ト ア ッ プ を し な く て すみ ます 





【 例題 9】 Quick BASIC の エディ タモ ー ド 
Quiok BASIC の 初期 画面 エディ タモ ー ド を つく れ . 











【 解 説 】 〇 Quiok BASTO 初期 画面 エディ タモ ー ド を つく り ま す -. 

① 起動 ディ スク (パー ジョ ン 4・5) また は ワー ク デ ィ ス ク (バー ジョ ン 4.2) を A ドラ イブ に 入れ 
電源 を 入れ ます . パー ジョ ン 4・5 を 入れ た 場合 は B ドラ イプ に ワー ク デ ィ ス ク (バー ジョ ン 4.5) 
を 人 入れ ます . プリ ンタ の 使用 , 日 本 語 ATOK6 の 使用 マウ ス の 使用 が 可能 と な り ま す . 最後 は 4 
プン シゲ トト 飼 未 


mmmcca name Saaaoraesouzeme r ーー フー マー ニュ ーー テー= ョ ーー や ase ニ エーーー ュー ュー アビー テーeca ニ ュー ニン で ュー ニー キュー ニー ニニ ュー 


③ 【Q 回 較 と し ます . バー ジョ ン 4.5 で は 次 の 表示 と な り 人 ESCJ を お す と 初期 画面 と な り ま す -. 





F/ フ ァイル E/ 編 集 V/ 表 示 S/ 検 索 R/ 実 行 D/ テ ナリ ーッ ク ~ 07 オフ" ション H/ へ ルフ * 
Untitled 


welcome to 
Microsoft 〈(R) QuickBASIC Version 4.50J 


(C) Copyright Microsoft Corporation, 1985-1989. 
All rights reserved. 


現在 , Easy メニ ュー で 起動 し て いま す 


RETURN キ ー で QB アド バイ ザ が 表示 され ます 
< ESC キ ー で 編集 画面 に 移り ます > 


タニ イレ クト モー ト ~ 


<SHIFT+F1= へ ルフ * > <F6= 窓 切換 > <F2=SUB 一 覧 > <F5= 実 行 > <F8= ト レ - ス > ! 00001:001 





バー ジョ ン 4.2 で は すぐ 初期 画面 と な り ま す . と れ は プロ グラ ム の 作成 を 行う 2 エディ ッ ト モ ー ド で す . 


Ver.4.2 


F/ フ ァイル E/ 編 集 V/ 表 示 S/ 検 索 R/ 実 行 D/ デ パッ ク - て / 関 数 H/ へ ルフ * ( 了 f・1 ) 
く <Untitled> 


ドー ーー トー ニキ ーー 


メイ ン フ " ログ ク ~ ラ ム : <Untitled> 動作 状況 : 実行 され て いま せん 00001 : 001 





⑬ [CTRL) +UXFERJ キ ー を お す と 次 の よう C な り ま す . 日 本 語 が 使え る と と が わか り ま す - 日 本 語 
を 使う と き は ATOK.DIC の 入っ た ディ スク を B ドラ イブ に 入れ ます . 
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H/ ヘ ルフ" (f・1 ) 


D/ テ バッ ク ~  C/ 関 数 


E/ 編 集 V/ 表 示 5S/ 検 索 R/ 実 行 


F/ フ ァイル 


へ 
で 

の 
1 
つ 
… 
F 

己 
つ 
ツマ 


3 ニニ ash ミニ ニュ エー ニラ ご コロ セー ネー 
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【 例題 10】 テキ スト 画面 に プロ グラ ム を か く 
数 x。y を 入力 し て , 積 を z に C 代 人 し , x の 値 *y の 値 ニ 2 を 表示 する プロ グラ ム を つく れ . 











【 解 説 】 〇 テキ スト 画面 に プロ グラ ム を か きま す . 
① Quick BASIC を は し ら せ た 画面 は 編集 画面 で 、 テキ スト 画面 で すす. と と に プロ グラ ム を 記入 し 
ます . 小文字 で 入力 を し ます . 何 か す で に 記入 され て いる よう な 場合 は ファ イル メニ ュー の "TI/ 新 


人 
\ 


規 " を 選び ます . 
Ver.4.5 


F/ フ ァイル E/ 編 集 V/ 表 示 S/ 検 索 R/ 実 行 D/ テ パック ^ C/ 関 数 0/ ォ ファ ション H/ へ ルフ * 
Unti tl ed 一 ーーーーーーーーーーーーーーーーー 條 


ウェ イク ド モー ド テ 








く <SHIFT+F1= へ ルフ "> <F6= 窓 切換 > <F2=SUB 一 覧 > <F5= 実 行 > <F8= ト レー ス > ! 00001: 002 








②③ まず ,* と y の 入力 で すか ら 次 の よう に 入力 し ます . 行 番号 は 必要 あり ませ ん . と れ が 従来 の 
BASTC と 大 きく 異な り ま す . 


⑧③ と し ます . input が 大 文字 と な り , 変数 x, y は 小文字 の まま で す . 次 の よう に な り ま す . 
④ 次 に 積 を z C 求 め あま す . z ニ ェ ネ ッ で す . 次 の よう に か きま す . 


INPUT る 泌 
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に モモ yns ニテ ュー ==iecm と ーーーー 








= ュー ニー ニュ ペニー ニー デュ ャ ニ ペ テー テー=eoea ニ ーー っ てこ 


⑤ を し ます . 変数 は 小文字 で すか ら そ の まま で す が , 見 や すく スペ ー ス が と られ ます . 


INPUT x,。 ァ y 
2 キメ キア 


⑯ 次 に 表示 の 命令 を か きま す . 次 の よう に な り ま す 


INPUT x, y 
2 = ニ メ キ ネ キア 


PT 


⑦ を お し ます . 次 の よう KC print 命令 は 大 文字 と な り ま す . 


INPUT x, y 
2 = X *※ Y 


⑧ こと れ で 終了 で すか ら end を か きま す 


INPUT x, y 
2 = メ *※ ア 
PRINT Xi "Py ei る 


(6⑤) 
⑤ 


を お し ます . 次 の よう に な り ま す . こと れ で プロ グラ ム が で きま し た . 


INPUT x, y 
2 = ヌメ ネ キア 
PR WW we Ps g 





【 例題 11】 プロ グラ ム の 保存 
【 例 題 10】 で つく っ た プロ グラ ム を プロ グラ ム 名 "renshu-1" で ディ スク に 保存 せよ . 











【 解 説 】 〇 ③ ファ イル (プロ グラ ム ) を 保存 し ます . 

① 【 例 題 10】 で つく っ た プロ グラ ム を ディ スク KC 保存 し ます . プロ グラ ム KC 誤 り が ある か も 知れ な 
いと き で も , プロ グラ ム を 実行 し て , 重大 な 誤り の た め コ ンピュータ が 暴走 し , 復帰 で を なく な る と 
と が あり ます . と の と き リ セッ ト す る と メモ リ の プロ グラ ム は 消去 され ます か ら , 一 応 保存 し て お く 
と と を お すす めし ます . 完成 し た と き , 再び 同じ し 名 前 で 保存 し な お し ます 
B ドラ イブ に は デー タデ ィ ス ク を 入れ て お きま す . 

⑬ ファ イル メニ ュー を 選択 し ます . プロ グラ ム は Quiok BASICO で は ファ イル と し て 扱い ます の で 
今後 は プロ グラ ム 名 で は な く フ ァイル 名 と 呼び ます . ファ イル は プロ グラ ム だ け で な く デ ー タ の 入っ 
て いる ファ イル も あり ます か ら , と と で は プロ グラ ム の 入っ て いる ファ イル と 理解 し ます 

③ “4/ 名 前 を 変え て 保存 ・..” を 選び ます . 次 の 画面 と た り ま す . すなわち , ファ イル 名 の 入力 , 
ファ イル の 保存 形式 の 入力 で す 

クタ 


等 
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[ Ver.4.5 


F/ フ ァイル EE/ 編 集 vV/ 表 示 S/ 検 索 R/ 実 行 D/ デ パッ ク ~ 
Untitled 


4/ 名 前 を 変え て 保 診 
ファ イル 名 を 設定 し て くだ さい 


C/ 関 数 0/ ォ フ プション  H/ へ ルフ * 


N/ フ ァイル 名 : ファ イル 名 を か く . B ドラ イブ の と き は Bi ファ イル 名 と する . 


内 5 用 

pD/ デ ィ レ クト リ ( 瑞 還 キー で 項目 間 を カー ソル 
ファ イル 形 玩 な 動 <. 同じ 項目 の 中 は 矢印 キ 

BIN (*) Q/QuickBASIC 

LIB 標準 ファ イル で 選択 

[-A-〕 


[-B-] ( ) T/ テ チキ スト ファ イル 


< 確認 > < 取消 > < H/ ヘ ルプ > 





F1 = ヘル フ * RETURN= 実 行 ESC= 取 消 "TAB= 次 項目 カー ソル キ -= 選 択 00001:001 


(〈④ まず ファ イル 名 を 入力 し ます . カー ソル は N/ フ ァイル 名 : の 後に あり ます . 


今回 は renshu-1 で すか ら [ 円 加 回 団 団 回 と し ます . を お し ます . bi は B 
ドラ イブ の ディ スク K 格 納 す る と こと を 示し ます . 省略 する と カレ ント ドラ イブ へ 入り ます . 


Ver.4.5 
F/ フ ァイル E/ 編 集 V/ 表 示 S/ 検 索 R/ 実 行 D/ テ ヌナ ルッ ク ~ C/ 関 数 0/ ォ ファ "ション H/ へ ルフ * 
Untitled 


A/ 名 前 を 変え て 保存 
ファ イル 名 を 設定 し て くだ さい 


N/ フ ァイル 名 : 請 訴 en5hmmil 
A:\ 


D/ デ ィ レ クト リ 
ファ イル 形式 
(*) Q/QuickBAS1IC 
標準 ファ イル 


BIN 
LIB 
= れこ 


[-B-] ( ) T/ デ キス ト フ ァイル 


< 確認 > < 取消 > <H/ ヘ ルプ > 


F1= ヘ ルフ * RETURN= 実 行 ESC= 取 消 TAB= 次 項目 





カー ソル キー= 選 択 00001:001 


⑤ 次 (C [TAB] キー を お し て (*)Q/ 標 準 フ ァイル "*”" に カー ソル を 移し ます . キー を お す と 下 の 


( )T/ テ キス ト フ ァイル の ( ) の 中 に が つき ます . 再度 〔J キー を お す と も と へ も どり ます . ど ち 
ら か 決め て 回 し ます . 


2 ら 5 
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= wrt ち cescaww デ ーーーave ネ ーー や ーーー ニー ュー ュー タニ ca ンー モー ニュ テー ニテ ーー ニー 


[Ver.4.5 ] 





F/ フ ァイル E/ 編 集 V/ 表 示 S/ 検 索 R/ 実 行 D/ テ ナハ ーッ ク ~ C/ 関 数 0O/ ォ ファション H/ へ ルフ * 
RENSH- 1 .BAS 
INPUT x, y 


2 = ニ メ ネ キア 
PRINT xi "*" 
END 





Q/ 標 準 フ ァイル は 名 前 の と お り 標 準 フ ァイル で す . T/ テ キス ト フ ァイル は テキ スト ファ イル で す . 
今回 は どちら で 格納 し て も か まい ませ ん . 詳し く は MS-DOS の 説明 書 を みて くだ さい 
renShu-1 の ファ イル が B ドラ イブ の ディ スク に で きま す . と の と き 。, 拡張 子 .BAS が つき ま 
す . 拡張 子 BAS は BASTIC の プロ グラ ム を 意味 し ます . ファ イル 名 が 画面 中 央 上 部 に 表示 され ます . 
大 文字 で 表示 され ます が , 大 文字 , 小文字 の 区 別 は あり ませ ん . 











【 例題 12】 プロ グラ ム の ラン タイ ム 実 行 
【 例 題 10】 の プロ グラ ム を ラン タイ ム で 実行 せよ 


INPUT x, y 

2 =x* ネ アツ 

PRINT xi "Oro yi "ei z 
END 











【 解 説 】 ③⑥ プロ グラ ム を ラン タイ ム で 実行 . 

① プロ グラ ム の 実行 は ラン タイ ム の 実行 と RXR ファ イル を 作成 し て DOS ベー ス で 実行 する 2 つの 
方 法 が あり ます . プロ グラ ム が で きた ら ラ ンタ イム で 実行 し て , 解答 を みて プロ グラ ム の で き 具 合 を 
チェ ッ ク し ます . と の 結果 に よっ て , EXE フ ァイル を つく る と いう の が 普通 の 手順 で す 

⑧ ラン タイ ム の 実行 は プロ グラ ム を 簡単 に 実行 する 方 法 で す . 

⑬ プロ グラ ム が 画面 に 表示 され て いる も の と し ます . 

ば ・5】 キー を お し ます . プロ グラ ム が 実行 され ます . と の 場合 は , 数 * と ゞ の 入力 で すか ら ? が 
表示 され ます . 値 を 2 つ 入力 し ます . 値 の 間 は カン マ で 区 切り ます . た と えば 3, 8 です. [ キ 
ー を お す と 結果 を 表示 し ます 

④ " 何 か キ ー を 押し て くだ さい "と 表示 され , 何 か キ ー を お す と , 元 の 画面 に も どり ます 
ラン タイ ム の 実行 
f・5 キー 


? 3,8 
3 * 8 = 24 


何 か が か キー を 押し て くだ さい 


⑤ 同じ と と を 実行 メニ ュー か ら S/ ス ター ト を 選ぶ と , 項 ③ と 同じ とこ と に な り ま す 
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DI ペ I ペ ァ 





【 例題 13】 EXE フ ァイル の 作成 
【 例 題 10】 の プロ グラ ム を 使っ て EXE ファ イル を つく れ 








【 解 説 】 〇 EXE フ ァイル を つく り ま す . 

① 【 例 題 10】 で つく っ た プロ グラ ム は 【 例 題 11】 で renshu-1.BAS と し て 保存 され ます . と の 
ファ イル を ソー ス フ ァ イル と 呼び ます . BASTC で つく られ た ファ イル で すか ら 拡 張子 に BAS が つ 
きま す . 

③ 次 に と れ を コン パイ ル し て オブ ジェ クト ファ イル を つく り ま す . と の 作業 を 行う 機能 を 持つ ソフ ト 
ウェ ア を コン パイ ラー と 呼び ます . で きた ファ イル は 0BJ の 拡張 子 が つき ます 

③⑬ 次 に オブ ジェ クト ファ イル を リン ク し て 実行 可能 な ファ イル を つく り ま す . こと れ を 実行 可能 ファ イ 
ル あ る い は TRXE フ ァイル と 呼び ます . と の 作業 を 行う 機能 を 持つ ソフ ト を リン カー と 呼び ます . 
EXE ファ イル は 拡張 子 と し て EXE が つき ます . 

④ こと の TRXE フ ァイル が MS-DOS 上 で 実行 で きる ファ イル と な り ま す . と これら の すべ て の 機能 が Qu 
iok BASTC に は 備わっ て いま す . この 環境 を 称し て 統合 環境 と いい ます . プロ グラ ム 作 成 の 一 連 
の 流れ は 次 の と お り で す . 











ェ デ ッ ト 攻 5 プ ョ クラ 2] "= = ディ ター 
(プロ グラ ム の 作成 ) . BAS 
コン パイ ル オプ ジェ クト 下 ・ フ ァイル コン パイ ラー 
(コン ピュ ー タ に . 0BJ 
わか る 記 全 に する ) 
リン ク 実行 可能 ファ イル リン カー 
オブ ジェ クト ファ イル ・EXE 


を MS-D08 上 で 実行 
で きる よう に 必要 な ライ 
ブラ リ 等 の リン ク を 行う 


⑤ で は 手順 を 追っ て いき まし ょ う . まず , プロ グラ ム が 画面 に 表示 され て いる も の と し ます -. 

⑥ 実行 メニ ュー を 選択 し ます . 

⑦ X/EXE ファ イル 作成 . を 選択 し ます . 次 の 画面 と な り ま す . と の 画面 で は コン パイ ルス イッ チ 
(バー ジョ ン 4.2 で は 作成 形式 ) を 決め ます . 今回 は X/ ラ ンタ イム 分 離 型 の 前 の ( ) 内 に ネ マ ー ク が 
あり ます の で は し ます . ラン タイ ム 分 離 型 EXE フ ァイル を つく り ま す . 

名 前 を 変え た たい とき は T/ 実 行 フ ァイル 名 : (バー ジョ ン 4.2 で は RN/EXEE ファ イル 名 :) に カー 
ソル が ある と き そ の 名 前 を 入れ ます . た と えば RR.EXE ある い は RR です . 拡張 子 XE は 自動 的 に 
つけ られ ます . を する と 実行 を 始め ます -. 

[TA キー を 使う と カー ソル が 項目 間 を 移動 し ます の で 指定 を し ます . た と えば コン パイ ルス 

2Z 











イッ チ (バー ジョ ヨン 4・2 で は 作成 形式 ) で は (* )X/ ラ ンタ イム 分 離 型 に カー ソル が 移り ます の で , 
キー で ( ) 4/ 独 立 型 を 指定 する と と が で きま す . M/ 実 行 フ ァイル 作成 (バー ジョ ン 4.2 で は 
M/EXE ファ イル 作成 ) を 選ん で は 』】 すれ ば 作成 に 入り ます . E/ 実 行 フ ァイル 作成 後 終了 (バー ジョ 
ン 4.2 で は TE/EXEE フ ァイル 作成 後 終 了 ) で は EXE フ ァイル を つく っ て か ら MS-D0S へ も どり ま 
す . 取消 で は で は 元 の 画面 に も どり ます . 

[ Ver.4.5] 





F/ フ ァイル E/ 編 集 V/ 表 示 8/ 検 索 R/ 実 行 D/ テ ナハ ーッ ク ~ C/ 関 数 0/ オ フシ ョ ン H/ ヘ ルフ * 
RENSHU-1 .BAS 
INPUT x, y 
2 = XX ※ ア 
PRINT xi "ei yi "ee 
END 


{ 1 D/ デ バッ グ 


( ) A/ 独 立 型 
< M/ 実 行 フ ァイル 作成 > <E/ 実 行 フ ァイル 作成 後 終 了 > 
< 取消 > <H/ ヘ ルプ > 





⑬ コン パイ ル と リン ク を し て , RBXE フ ァイル が で きま す . 終了 する と 元 の 画面 へ も どり ます . 





【 例題 14】 ファ イル の 確認 
【 例 題 13】 で つく っ た ファ イル を MS-DOS 上 で 確認 せよ . 








【 解 説 】 〇 ・.EXE フ ァイル を 確認 し ます . 

① 【 例 題 132】 で つく っ た TRXE フ ァイル を 確認 し ます . EXE ファ イル は MS-D0S 上 で 動く ファ イル 
で す . 

②③ Quiok BASTC が 使わ れ て いる 状態 の 場合 は MS-DOS へ も ど し て 確認 し ます . Quiok BASIC 
で は MS-D0S へ も る どす 方 法 は 2 つ あ り ま す . 第 1 の 方 法 は ファ イル メニ ュー か ら X/ 終 了 を 選び ま 
す . MS-DOS の A> と な り ま す . Quiok BASIC て も どす に は "QB" (によります. 第 2 の 方 法 は 一 
時 的 に MS-D0S へ も どす 方 法 で 、 ファ イル メニ ュー か ら D/MS-D0S コマ ンド を 選び 時 的 (C MS- 
DOS の コマ ンド を 使え る よう に し ます . Quiok BASIC に は Exit と 何 か キ ー を お す と も ゃ も ど 
り ま す . 

⑬ と と で は ファ イル メニ ュー か ら D/MS-D0S コマ ンド で MS-DOS コマ ンド を 使い まし ょ う . 

(④ MS-DO0S の コマ ンド を 利用 し て 次 の よう に し ます . 
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ニー ニー デー ニニ ーー テー ゴー ュー で ュー つ ェ rcymeer= ニ つい 


DIR に よっ て カレ ント ドラ イブ の ファ イル の リス ト が で きま す . DIR/W [。) 内 で 画面 いっ 
ぱい に リス ト が で ます . 

DIR B: で B ドラ イブ の ファ イル の リス ト が で ます . DIR Bi/W[JJ で B ドラ イブ の リス ト 
が 画面 い * ば ぱい に で ます . B: の か わり (CA: と すれ ば A ドラ イブ の 内 容 で す . 

カレ ント ドラ イブ と は MS-DOS が 現在 使用 し て いる ドラ イブ で A> の と き は A ドラ イブ , B> の と 
き は B ドラ イブ で す . A> で Bs と すれ ば A ドラ イブ か ら B ドラ イブ へ カレ ント ドラ イブ を 変更 
きま の 

⑤⑮ Renshu-1 .EXE と Renshu-1 .0BJ、Renshu-1 .BAS が ある と と を 確認 し て 下さ い . 





【 例題 15】 MS-DOS で EXE フ ァイル の 実行 
【 例 題 132】 で つく っ た ファ イル Renshu-1 EXE を 実行 せよ . 








【 解 説 】 〇 EXE フ ァイル を 実行 し ます . 
① Quiock BASIC 画面 の ファ イル メニ ュー か ら M/MS-DO0S コマ ンド を 選ん で MS-D0S コマ ンド へ 

入り ます . 

renShu-1 に より renshu-1 .EXE フ ァイル が 実行 され ます -. 
③ 数 値 を 2 つ 入 力 する と 値 が 求め られ ます . 
③ EXIT [J) , お よび 何 か キ ー を お す と Quiok BASIC へ も どり ます . 
④ MS-D0S8 上 で は renshu-1 [で 同様 の 実行 が で きま す . 
MS-D0S コマ ンド モー ト で の 実行 


実行 後 Quick BASTIC へ も どる 画面 


A> 5 :FemShu-1 実行 


? 56,34 56 と 34 を 入力 
56 * 34 = 1904 


EXIT で QuickBASIC に 戻り ます 


Command ハハ ^ー シ ~ ョ ヨン 3.30 


A>exit Quiok BASTC へ も どる 


MS-DOS で の 実行 
A> b・ MenSh= 実行 


? 56,34 56 と 34 を 入力 
56 * 34 = 1904 


A> Quick BASTC へ も どる に は QB に J と する . 








【 例 題 16】 終 了 
【 例 題 10】 の プロ グラ ム を つく り 実 行 し , DOS へ も どれ . 
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【 解 説 】 〇 DO08 へ も どり ます . 
① ファ イル メニ ュー か ら "X/ 終 了 ” を 選び ます . 
Quiok BASTC を 終了 し DOS に も どり ます . Quiok BASTC へ も どる (て は QB[ コ ) か ら 始め ます . 
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3 章 プロ グラ ム の 読み 込み ・ 修 正 ・ 保 存 ・ 
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【 例題 17】 ファ イル の 呼び 出し 
ファ イル renshu-1 .BAS を ディ スク か ら 呼 び 出せ . 











【 解 説 】 〇 ファ イル を ディ スク か ら 呼 び 出し ます . 
① ファ イル メニ ュー を 選び ます . 
③ 0/ 読 込 を 選び ます . 次 の 画面 と な り ま す . 

[Ver.4.5 


F/ フ ァイル E/ 編 集 V/ 表 示 S/ 検 索 R/ 実 行 D/ デ ハー ッ ク ~ C/ 関 数 0O/ オ フ " シ ョ ン H/ へ ルフ * 
Untitled 


0/ 読 込 
ファ イル 名 を 設定 し て くだ さい 


ファ イル 名 を か く . B ドラ イブ に し まう と き は BB: フ ァイル 名 と する . 


D/ デ ィ レ クト リ 


BIN 
LIB 
ドー 信 = ヨ 
[-B- 1 


< 確認 > < 取消 > <H/ ヘ ルプ > 





⑬ ファ イル 名 (Cc B:Renshu-1.BAS と タイ プ し て ) し ます . B ドラ イブ より Renshu-1・BAS 
を 呼び 出し ます . ドラ イブ を 指定 する と き は ai:Renshu-1, b:Renshu-1 で す . BAS は 省略 で 
きま す . 大 文字 , 小文字 の 区 分 は あり ませ ん . 

N/ フ ァイル 名 : renshu-1 

④ ファ イル が すでに ある 場合 は , 〔TAB] キー を お す と ファ イル リス ト の 項目 へ カー ソル が 移り ます 
の で , 矢印 キー を 使っ て 希望 の ファ イル 名 を さがし て カー ソル を お き し て も 同じ で す . 

⑮ ファ イル が な いと 「 フ ァイル が 見 つか り ま せん 」 の 表示 が され ます - キー で 元 へ も どり ます . 

う 了 


| 準備 ・ 環 境 コ マン ド 編 - _ 





トー 





【 例題 18】 プロ グラ ム の 修正 
【 例 題 10】 の プロ グラ ム を 修正 し て *, ゞ , z を 入力 し て , 積 を 求め て 結果 を 表示 する プロ グ 





ラム を つく れ . た だ し , 積 は 変数 zz に 入れ る . 








【 解 説 】 〇 プロ グラ ム の 修正 を し ます . 
① 【 例 題 17】 の 方 法 で ファ イル Renshu- 1 . BAS を 呼び 出し ます . これ を 元 に し て , プロ グラ ム 
の 変更 を し ます . 

INPUT x, y 

2 = メ ネ キア 

PRINT xi "Vi Yi "Ei 2 

END 


③ 1 行 目 の y の 後に , z を 追加 し ます . 
カー ソル を すゞ の 後に お きま す . , と z を タイ プ し ます . [J は お し ませ ん . z を タイ プ し た 後 避 
を お す と 次 人 1 行 空白 行 が で きま す . [DEL] キー を お せ ば 元 に も どり ます . 


⑧⑬ 次 に z=x* ゞ の zZ を zz と し ます . 
カー ソル を 2 また は z の 後に お き 2 と タイ プ し ます . z=x+*y が zz=x*+y と な り ま す . Quiok 


BASTC の 初期 状態 で は 挿 人 モー ド と な っ て いま す の で z に カー ソル を お き z を お せ ば z が 挿 人 さ 
れ ま す . た と えば aboc の b に カー ソル を お き xyz と タイ プ す る と axyzbc と な り ま す . 

挿入 モー ド で な いと き z と する と z が 消え て z が か か れ ま す . abo で b C に カー ソル を お き xy と 
する と axy と な り ま す . 挿入 モー ド は カー ソル を よく みる と _ (アン ダー スコ ア ) の 点滅 と な っ て 
いま す . 畠 人 モード で な いと き は カー ソル が 四角 の 反転 で 点滅 と な っ て いま す . 挿入 モー ド は [INSJ 


キー を お す と と で 切り か えら れ ま す . 
(④① 22=X*y の 後に *z を 追加 し ます . 
⑤ TPRINT 文 を 修正 し ます . 次 の ①. ②③, ③ の 手順 と し ます . 

PRTNT xi "* ネ "yi ニー ョ z 


ゞ の 後に カー ソル を お き 玉 z と し ます . は し ませ ん . 


カー ソル を 回 また は キー で 移す . 
カー ソル を 移し z と する . 


① カ ー ソ ル , 挿入 モー ド 
"キネ" と する . 回 は お し ませ ん . 回 を お す と "以降 が 次 行 へ くう つり ます . 


(BS) キー を お す と 元 へ も ゃ る どり ます . 





文字 の 消去 は キー で カー ソル の ある 文字 , [BS ] キー で カー ソル の 前 の 文字 が 消え ます -. 
⑦ と れ で プロ グラ ム が で きま し た . ファ イル の 保存 は 【 例 題 19】 で 行い ます . 


INPUT x,。 y,。 z 
22 = * ア ネス 

PRTNT 生還 0 の 5 P ま ig3 
END 


し PU オス 
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ee キー で ーー ュー PP 








【 例題 19】 同名 で ファ イル を 保存 
【 例 題 18】 で 修正 し て つく っ た プロ グラ ム を RENSHU-1 .BAS の まま 保存 せよ . 











【 解 説 】 〇 同名 で ファ イル を 保存 し ます . 
① ファ イル メニ ュー か ら "S/ 保 存 ” を 選び ます . 
修正 され た プロ グラ ム が 現在 の ファ イル 名 RENSHU-1.BAS で 保存 され ます . 人 確認 の 問 合 わせ は 
あり ませ ん か ら 注 意 し て くだ さい . 修正 前 の プロ グラ ム は な く な り ま す . 





【 例題 0】 サブ ルー チン の 作成 (1) 
次 の プロ グラ ム を つく れ . と の プロ グラ ム は * と ゞ を 入力 し て x* 十 * を 求め 、 その 値 を サブ 
ルー チン & へ 引き 渡し て 表示 する も の で す . 


DECLARE SUB a (x) 
INPUT x, y 

2 = ヌメ ネ メ キ マツ タネ ツヤ 
CALL a(z) 

END 


SUB a (XX) 
PRINT xx 
END SUB 


(実行 例 ) 


? 243 2、 3 を 入力 し た 例 
13 








【 解 説 】 〇 サブ ルー チン を つく り ま す 
① まず メイ ン ル ー チ ン を 次 の よう (に か きま す . DECLARE コマ ンド は ファ イル へ し まう と き 自 動 的 に 
か か れ ま す の で , か く 必 要 は あり ませ ん . 
INPUT x, y 
2 ミニ X *※ 文 オア ※ ネ マダ 


CALL a(z) 
END 





⑬ 次 に サブ ルー チン を つく り ま す . 
編集 メニ ュー を 選び ”S/ 新 規 SUB . ..” を 選び ます . 
③ 続い て , SUB の 名 前 を 聞い て きま す . [3 引 と し ます . 
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ーーー ュ ーー ニー ニュ ーー で = ペニー デー ooo 





. Ver.4.5 


F/ フ ァイル  E/ 編 集 V/ 表 示 S/ 検 索 R/ 実 行 D/ テ ナハ ーッ ク ~ C/ 関 数 O/ ォ オフ" ショ ン H/ へ ルフ * 
Untitled 
INPUT x, y 
2 = XX ネ ま XX + アア *※ ア 
CALL a(z) 
END 


S/ 新 規 SUB 
作成 する ブロ シー ジャ 名 を 入力 し て くだ さい 


< 確認 > < 取消 > <H/ ヘ ルプ > 





④ 次 の よう (c SUB を 表示 し ます . 





⑮ SUB a の 後に 仮 引数 の (x) を か きま す . 次 行 に は , PRINT x を か きま す . サブ ルー チン が で き 
まし た . 
SUB a (XX) 
PRINT x 
END SUB 
(⑥) な お , + [2] を お す と と で メイ ン ル ー チ ン と サブ ルー チン の 間 を 交互 に みる と と が で 
きま す . 
⑦ メイ ン ル ー チ ン の x と サブ ルー チン の x は 各々 独立 し て いま す . と れ は 後ほど 詳し く 説明 し ます . 





【 例題 31】 サブ ルー チン の 作成 (2) 
次 の サブ ルー チン を 含む プロ グラ ム を つく れ . 


DECLARE SUB a (xx!) 
INPUT x, y 

2 = ヌメ ネ ア 

CALL a(z) 

END 


SUB a ( タ ) 
PRINT * 
END SUB 











【 解 説 】 〇 サブ ルー チン を 含む プロ グラ ム を つく り ま す . 
① Quiok BASTC で は サブ ルー チン SUB、 フ ァ ン クシ ョ ン FUNCTITON を 使う こと が で きま す . 
3 ダ 
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SUB を 例 に サブ ルー チン を 含む プロ グラ ム の つく り 方 を 示し ます . な お プロ グラ ム の 使い 方 に つい 
て は 1 編 20 章 で 詳し く 扱 いま す . 
⑱ 次 の よう に プロ グラ ム を か きま す . 


INPUT x, y 
2 = ヌメ ネ キア 
CALL a(z) 
END 


) 次 に 最後 の 行 に SUB a(x) と か きま す . 


INPUT x, y 
2 = ニ メ ネ キア 

CALL a(z) 

END 


⑨ 


で 


④ また は カー ソル を 別 の 行 へ 移す と 次 の よう に サブ ルー チン 画面 と な り ま す . 


⑧⑤ カー ソル を 中 間 の スペ ー ス 行 に お き , PRTINT 文 を か きま す . 

SUB a (X) 

PRINT xx 

END SUE 
こと れ で プロ グラ ム は で き あ が り で す . 先頭 の "DECLARE SUB a(x! ) "は 自動 的 に つけ られ ます . 
メイ ンプ ログ ラム の 画面 と サブ ルー チン の 画面 の 切り か え は + キー で 行い ます . 
と れ を RRR-95 の 名 前 で 保存 し ます . 今回 は テキ スト ファ イル で 保存 し ます . 


1 
に 


) 


③ 


(Go 





【 例題 22】 モジ ュー ル の 追加 
【 例 題 41】 の プロ グラ ム (ファ イル 名 RRR-95) を 修正 し て 次 の プロ グラ ム と せよ . た だ し , 
RRR-95 の プロ グラ ム を 追加 し て か ら 修 正 し て いく も の と する . 


プロ グラ ム 例 実行 結果 例 
DECLARE SUB a]1 (z1!) ? 5,3 5 と 3. 2 と 5 を 入力 の 例 
DECLARE SUB a (x!) 15 
INPUT x, y 2 
2 = ニ メ ネ アマ ア -6666667 
CALL a(z) 


INPUT x1, y1 
z1 = 1 / y1 
CALL a1(z1) 
END 


SUB a (XX) 
PRINT x 
END SUB 


SUB al] (z1) 
PRINT z1 
END SUB 











【 解 説 】 〇 ファ イル の 追加 を し ます . 
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① 【 例 題 421】 の プロ グラ ム の "END”" の 部 分 に カー ソル を お きま す . 
⑨ ファ イル メニ ュー を 選択 し ます . 次 C"M/ 結 合 ・..” (バー ジョ ン 4・5),M/ 追 加 ・・・” (バー 
ジョ ン 4.2) を 選び ます 
⑧③ 追加 する ファ イル 名 を 問 合 わ せま す . RRR-95 を 指定 し ます . 
NZ ファ イル 名 : irrr-95 
罰 失 
④ に c ょ より 次 の よう KRRR-95 の 内 容 が 追加 され ます . な お , と と で は サブ ルー チン が すでに 存 
在 す る も の と 同名 に な り ま す の で 図 の よう な 警告 が で ます が , 修正 し ます の で これ は 無視 し て = を 
お し ます . IESCJ キー を お し ます . メイ ンプ ログ ラム の 画面 と な り ま す . 
| Ver.4.2 


F/ フ ァイル E/ 編 集 vV/ 表 示 S/ 検 索 R/ 実 行 D/ デ ハー ッ ク ~ C/ 関 数 H/ ヘ ルフ " ( f・1 ) 
RRR-95.BAS 


DECLARE SUB a (x!) 
INPUT x, y 

2 ミニ ヌメ ※ ア 

CALL a(z) - 

DECLARE SUB a (x!) 追加 ファ イル 
INPUT x,y 


2 ミネ ※ ア 

ALL &G2) ー _ _ ーー = 

END | 名 の サフ ^- ログ ~ ラ ム を | な 称 告 

SUB a (X) rw を 人 
PRINT x が 存在 する 

END SUB s 


END 






A も うと し まし た 光生 
同名 の プロ シ ジ ュ ア が 
存在 する 

< 確認 > <H/ ヘ ルプ > 


0 バー ジョ ン 4.5 と バー ジョ ン 4.2 で は 若干 結合 ・ 追 加 の され 方 が 違い ます が , いずれ も 表示 を 
利用 し て , 問題 の プロ グラ ム の よう に 修正 し ます 
Ver.4.5 | 


F/ フ ァイル E/ 編 集 V/ 表 示 S/ 検 索 R/ 実 行 D/ テ ~ ハ ーッ ク ~ C/ 関 数 0/ オ ファ ショ ン H/ へ ルフ * 
RRR-95.BAS 
DECLARE SUB a (x!) 
INPUT x, y 
2 = ニ XX ※ ア 
CALL a(z) 
END 


| (xi!) 


INPUT x, y 
2 = XX * ア 

CALL a(z) 

END 


SUB a (x) 
PRINT *x 
END SUB 
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【 例題 323】 ファ ンク ンション 
次 の プロ グラ ム を つく れ . と の プロ グラ ム は * を 入力 し , ファ ンク ショ ン f Cx を 引き わた し , 
その 35 乗 を 求め て 表示 する も の と する . 


DECLARE FUNCTION f! (zi!) ? 3 3 を 入力 の 例 
INPUT x 27 

PRINT f(X) ? 10 10 を 入力 の 例 
END 1000 


FUNCTION f (2Z) 
f = 2Z *※ 2 * 2 
END FUNCTION 











【 解 説 】 〇 ファ ンク ショ ン を つく り ま す . 
① 問題 の メイ ン ル ー チ ン を か きま す . DECLARE コマ ンド は 自動 的 に つけ られ ます か ら か く 必 要 は あ 
り ま せん . FUNCTION に つい て は 21 章 で 詳し く 学 び ま す . 
③ 編集 メニ ュー を 選択 し ます . こと で "*/ 新 規 FUNCTION ..… "を 選び ます . 
③ 次 の 画面 と な り ま す . 名 前 を 人 力 し ます . 
N/ 名 前 : f 
④ に より 次 の 画面 と な り ま す . 





⑤ FUNCTTON を 次 の よう (に か きま す . これ で で き あ が り で す - 
FUNCTION f (2) 


LE 
END FUNCTION 





【 例題 44】 ファ イル の 印刷 
【 例 題 421】 の ファ イル を 印刷 する プロ グラ ム を つく れ . 





【 解 説 】 〇 ファ イル の 印刷 を し ます . 
① 【 例 題 421】 の プロ グラ ム が 表示 され て いる も の と し ます -. 
③ ファ イル メニ ュー か ら T/ 印 刷 ... を 選び ます . 次 の 画面 と な り ま す . 
[ Ver.4.5 [ Ver.4.2 ] 


印 する 和 人 失 し で くだ さい 





< 確認 > < 取消 > <H/ ヘ ルプ > 確認 取消 


3Z 
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mm 





③ 印刷 の 種類 を 4 つの 中 で 選び ます . 矢印 キー を 使い ます . 既定 値 は M/ 現 在 の モジ ュー ル で アク 
ティ ブウ イン ドウ の モジ ュー ル で す . サブ ルー チン が あれ ば サブ ルー チン も 印刷 し ます . 8/ 指 定 範 
囲 は カー ソル の ある 行 を 印刷 し ます . W/ ア クティ ブウ イン ドウ は アク ティ ブウ イン ドウ 全体 で す . 
つま り , 現在 表示 され て いる ウイ ンド ウ の み で す . 4/ 全 体 は メモ リー の モジ ュー ル , イン クル ー ド 


ファ イル , 


【 結 


果 】 


DECLARE SUB a (x!) 
INPUT x,。 y 

2 ニタ ネ ア 

CALL a(z) 

END 


SUB a (xx) 
PRINT x 
END SUB 


DECLARE SUB a (x!) 
INPUT x,。 y 

2 = ニ メ ネ ア 

CALL a(2) 

END 


SUB a (x) 
PRINT 
END SUB 


INPUT x, y 
2 = X ※ 

CALL a(z) 

END 


SUB a () 
PRINT x 
END SUB 


ドキ ュ メ ント ファ イル すべ て を 印刷 し ます . 


M/ カ レン トモ ジュ ー ル の 例 
アク ティ ブウ イン ドウ 


サジ 9 ルー チン 


4/ 全 体 の 例 
アク ティ ブウ イン ドウ 


サブ ルー チン 


W/ ア クティ ブウ イン ドウ の 例 
アク ティ ブウ イン ドウ (サブ ルー チン は 印刷 し な い ) 


W/ ア クティ ブウ イン ドウ の 例 

アク ティ ブウ イン ドウ (メイ ンプ ログ ラム は 印刷 し な い ) 
十 〒 久 で メイ ンプ ログ ラム と サブ ルー チン の 
ウイ ンド ウ を 切り か える . 


8/ 指 定 範囲 の 例 
2z (に カー ソル を お いた 場合 


3 ぎ 


ーー や ーー こら ーー ギュ 


4 章 ダイ レク ト 実 行 








【 例題 25】 ダイ レク トモ ー ド 
* 度 を 入力 し て , 12*SIN(x 度 ) を 求め て 表示 する プロ グラ ム を つく り , 実行 前 C SIN(15 


度 ) の 値 を ダイ レク トモ ー ド で 人 確認 せよ 


プロ グラ ム 例 
INPUT x 
PRINT 12 * SIN(x / 180 * 3.14159) 
END 


15 を 入力 の 結果 例 


? 15 
3.105826 








【 解 説 】 〇 ダイ レク トモ ー ド で 直接 命令 を 実行 し ます . 
① プロ グラ ム を つく っ た た 後 , [f6] に より ダイ レク トモ ー ド を アク ティ ブ 画 面 C し ます . 
②③ ダイ レク ト 画 面 に 次 の よう に 書き 込み ます 


INPUT x 
PRINT 12 * SIN(x / 180 * 3.14159) 
END 

1 MESEKS 
Print sin (15/180w3.14159) 


⑧ に より 15 度 の SI の 値 を 求め る こと と が で きま す . 


・2588189 





【 例題 26】 ダイ レク トモ ー ド で 確認 し て か ら プ ログ ラム へ 挿入 
【 例 題 25】 と 同じ プロ グラ ム を つく れ . た だ し , る 行 目 の PRINT 文 は 。 ダイ レク トモ ー ド 
で 15 度 の SIN を 求め る 命令 を 書き 実行 し て , 確認 し て か ら , 挿入 し て 修正 し て プロ グラ ム を 





完成 する も ゃ も の と する . 
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【 解 説 】 ⑨③ ダイ レク トモ ー ド で 命令 を 確認 し て か ら プ ログ ラム を 挿入 し ます . 
① 次 の よう K2 行 を 記入 し た と と ろ で , (に より ダイ レク トモ ー ド を アク ティ ブ 画 
と と で 15 度 の SIN を 求め る 式 を か き 実 行 し 確認 し ます . 














ど : し ます 








INPUT x 
END 


"print sin(15/180*5.14159) "(て カー ソル を お き , [CTRL] + [Y) を お し ます . と の 命令 が 
クリ ッ プ ボー ド に コピ ー さ れ ま す . 編集 メニ ュー で P/ ペ ー ス ト を 選ぶ と 再び こと の 命令 が カー ソル の 
ある ダイ レク トモ ー ド の 1 行 目 に か か れ ま す . に より アク ティ ブ 画 面 を か を "END" に カー ソ 
ル を 移し , 編集 メニ ュー か ら E/ ペ ー ス ト を 選ん で と て の 命令 を "REND" の 前 に 挿入 し ます . 


②) 


INPUT x 
PRINT SIN(15 / 180 * 3.14159) 


END 


ター イレ クト モー ト ~ 
print sin (15/180*3.14159) 


⑧ "12*” の 挿入 と 15 を KC 変更 し て プロ グラ ム を 完成 し ます 


INPUT x 
PRINT 調書 謀 SIN( 詩 / 180 * 3.14159) 
END 


ター イレ クト モー ト ~ 
Print sin (15/180*3.14159) 


4 章 ダイ レク ト 実 行 











【 例題 27】 ダイ レク トモ ー ド で サブ ルー チン の 実行 
次 の プロ グラ ム を つく り , 次 に サブ ルー チン a1, a2, a3 を 各々 独立 し て 実行 せよ . と の プ 
ログ ラム は * 度 を 入力 し て , * 度 の sin, cos, tanm を サブ ルー チン を 使っ て 求め ある も ゃ の で す . 


DECLARE SUB al] (a1) 
DECLARE SUB a2 (a2) 
DECLARE SUB a3 (a3) 
INPUT x 

CALL a1(X) 

CALL a2(X) 

CALL a3(x) 

END 


SUB a1 (z1) 
PRINT SIN(z1 / 180 * 3.14159) 
END SUB 


SUB a2 (z2) 
PRINT COS(z2 / 180 * 3.14159) 
END SUB 


SUB a3 (z3) 
PRINT TAN(z3 / 180 * 3.14159) 
END SUB 


? 25 25 を 入力 し た 結果 例 
・422618 
・9063079 
・4663073 








【 解 説 】 〇 サブ ルー チン を 独立 し て ダイ レク ト K 実 行 し ます . 
① プロ グラ ム を か きま す 
③ [f・6〕 で アク ティ ブ 画 面 を ダイ レク トモ ー ド と し ます 
次 の よう K ca11 命令 を か きま す -. に より サブ ルー チン の み 実 行 し ます . 
CALt a1(30 ) で 30 度 の sin の 値 を 求め ます . 
CALL a2(75 ) で 75 度 の cos の 値 を 求め ます . 
CALL a5(45 ) =] で 45 度 の tan の 値 を 求め ます . 
INPUT x 
CALL a1(X) 
CALL a2() 


CALL a3(X) 
END 


ダイ ルク ド モード 
cal 1 a1(30) 
cal1 a2(75) 
ca1 1 a3(45) 
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ダイ レク トト 実行 の 結果 


・4999996 
・2588201 
・9999988 





【 例題 28】 変数 の 値 を 変え て 実行 
1 か と 3000 まで を 表示 する プロ グラ ム を つく り , 途中 [STOPJ キ ー で プロ グラ ム を 中 断 し , 
変数 の 値 を 変え て 、 そ と か ら 再 開 し て 1000 まで 表示 せよ . 











【 解 説 】 〇 変数 の 値 を ダイ レク トモ ー ド で 変更 し ます . 
① 次 の プロ グラ ム を つく り , 【f・5] で 実行 し ます . 次 (C [STOP ] キー を ぉ し て 途中 で 中 断 し ます . 


と と で [f・6] キー で アク ティ ブ 画 面 を ダイ レク トモ ー ド と し て , i=950 ] と し ます . 中 断 し た と 
き の 1 の 値 に 関係 な く 1 は 950 と な り ま す . 


FOR ji = 1 TO 1000 
PRINT ii 

NEXT ji 

PRINT 

END 





イル クト モー ト に 


③⑬ 【f・5] で 再開 し ます . 3 が 1000 まで 実行 され て プロ グラ ム が 終了 し ます . 

③ 次 の 例 は プロ グラ ム を 実行 し , [STOP J キ ー を お し た と き 1 は 179 で それ を 表示 し た あと NEXT 
1 の 実行 前 で 止ま り ま し た . "NEXT 1” が 緑色 に な っ て いま す . i=950 を ダイ レク ト 実 行 し て 再開 
し まし た の で , NEXT 1 に より 1 は 951 と な り 951 か ら 1000 まで 表示 し ます . 
【 結 果 】 


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 
23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 
43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 
63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 
83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 10 
103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 11 
119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 13 
135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 15 
151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 16 
167 168 169 170 171 172 173 174 175 176 177 178 179 951 952 95 
954 955 956 957 958 959 960 961 962 963 964 965 966 967 968 96 
970 971 972 973 974 975 976 977 978 979 980 981 982 983 984 98 
986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 




















mocom の の ょ の oto 


プク 
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【 例題 299】 サブ ファ イル 

次 の 2 つの ファ イル を つく り , 各々 , RRR-71 .BAS、 RRR-72 .BAS で 保存 する . 次 に , 
RRR-71 の サブ ルー チン p1us と RRR-72 の サブ ルー チン mu1ti を 呼び 出し て , 入力 し た 
値 ま で の 1 か ら の 和 と 階 乗 を 求め る プロ グラ ム RRR-75.BAS を つく れ . な お , RRR-71 は 値 
を 入力 し て , 1 か ら そ の 値 ま で の 和 を 求め る る プロ グラ ム , RRR-72 は 値 を 入力 し て , 階 乗 を 求 
め る プロ グラ ム と する 
RRR-71 .BAS の プロ グラ ム と DECLARE SUB plus (z2, zz 欠 ) 

6 を 入力 の 結果 INPUT x% 

CALL plus(x を , ツア 多 ) 


PRINT "1 カラ "を ツマ テー ノ ワ ェ リロ ーッ を 
END 


SUB plus (z1 を ,。 2z2 多 ) 
FOR ji = 1 TO z1% を 
を = ツア + 


NEXT ji 
2Z2 を = アツ を 
END SUB 


9 6 
1 カラ 6 マデ ノワ = 21 


RRR-72。BAS の プロ グラ ム と DECLARE SUB multi (zZ%, ZZ 多 ) 
6 を 入力 の 結果 INPUT xx 
博 近 CALL multi(X%, YY 名 ) 
PRINT "1 カラ "ji XX "マテ ー ノ カイ シ ~ ョ ヨウ = "ュー ツア ツア を 
END 





SUB multi (21,。 22 多 ) 
YY = 1 
FOR ji = 1 TO z1 を 

Y ア を = YY を *※ ュ 


NEXT ji 
22 シ を = ーッ yy を 
END SUB 


? 6 
1] カラ 6 マテ ~ ノ カイ シ ~ ョ ウ = 720 


INPUT を 

RRR-75 .BAS の プロ グラ ム CALL plus( メ を , を ) 
CALL multi( 文 を YY) 
PRINT y% 
PRINT yy を 
END 








イラ 
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【 解 説 】 〇 ③ サブ ファ イル を 利用 し ます . 
① Quiok BASTC で は 複数 の ファ イル を ロー ド し て , 別々 Cc 管理 する と と も KC, 別 の ファ イル の モ 
ジュ ー ル を メイ ン モ ジュ ー ル か ら 利 用 する と と が で きま す . 今回 の 例 は 次 の よう な も の で す . 








RRR-71.BAS RRR-73.BAS RRR-72.BAS 





sUB Plus| | 一 -| CALL Plus | ニー-| ISUB Male 


END SUB CALL Multi END SUB 





























(②  RRR-71 .BAS, RRR-72.BAS、RRR-73.BAS を 各々 作成 し 、 保存 し ます . 


⑬③ ファ イル メニ ュー か ら "1L/ サ ブフ ァイル 読込 ... (バー ジョ ン 4.5) ",、 エ 1/ サ ブフ ァイル 常 


駐 ・… "(バー ジョ ン 4・2) を 選び ます . 
④ ファ イル 名 を 問 合 わ せ て きま す の で rrr-71 を 入力 し ます . な お 形式 は "M/ モ ジュ ー ル "と し ま 
、 
[ Ver.4.5] 


IEHZ7ZZf E/ 編 集 vV/ 表 示 S/ 検 索 R/ 実 行 D/ テ ^ ル バッ ク ~ C/ 関 数 O/ ォ ファ ション  H/ へ ルフ * 
0 71.BAS 
DEcL サ プ フ ァイル 読込 
INPU ファ イル 名 , ファ イル 形式 和 を 設定 し て くだ きい 
CALL 
PRIN  N/ フ ァイル 名 : 還 E=7I 
END 
B:\ 
F/ フ ァイル 


RENSHU-1.BAS RRR-95.BAS 
RENSHU-2.BAS  RRR-96.BAS 
RRR-100.BAS RRR-97. 
RRR-71.BAS RRR-98. 
RRR-72.BAS RRR-99. 
RRR-73.BAS 


< 確認 > < 取消 > <H/ ヘ ルプ > 





⑮⑤ 同様 K. ファ イル メニ ュー か ら [L) , rrr-72 は ] , サブ ファ イル か ら [rrr-78 は] に より 
5 つの ファ イル を メモ リ へ 呼び ます . 

⑯ 実行 メニ ュー か ら "M/ メ イン モジ ュー ル の 設定 .… "を 選び ます . 

⑦ メイ ンプ ログ ラム の 設定 画面 と な り ま す . と と で は 実行 する の は rrr-725 で すか ら , カー ソル を 
rr エー75 移し, し ます . rrr-73 が メイ ンプ ログ ラム と な り ま す . 


と 4 
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[ Ver.4.5] [ Ver.4.2 」 


⑧ を お す と 次 の よう に メイ ンプ ログ ラム が rrr-73 と 確認 で きま す . 


[ Ver.4.5] 





RRR-73.BAS 

RRR-71 .BAS 
plus 

RRR-72 .BAS 
multi 


RRR-73.BASi= メ イン モジ ュー ル 
[ Ver.4.2 ] 
C/ フ 2* ログ ラム 所 択 : 
RRR-73.BAS 
RRR-71.BAS 
plus 


RRR-72 .BAS 
multi 


RRR- 73 .BAS := メ インフ * ログ ラム 
⑨ f・5〕 で 実行 し ます . rrr-735 の メイ ンプ ログ ラム が , rrr-71 の サブ ルー チン p1uS と エエ エー 
72 の サブ ルー チン mu1ti を 使っ て 結果 を 求め ます . 


【 結 果 】 


? 6 (6 を 入力 の 例 ) 
21 
720 





【 例題 30】 サブ ファ イル の 開放 
【 例 題 29】 の 状態 か ら rrr-71、 ェ rrr-72 を 開放 せよ . 











【 解 説 】 〇 サブ ファ イル を 開放 し ます -. 
① 【 例 題 29】 の 手順 で . サブ ファ イル rrr-71、 ェ ェ ェ -72 を メモ リム 読み 込み ます . 
5 
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⑱ ファ イル メニ ュー を 選び ます 
③ "0U/ サ ブフ ァイル 開放 ... "を 選び ます . メモ リ に 常駐 し て いる ファ イル 名 が 一 覧 され ます . まず , 
rrr-72.BAS に カー ソル を 移し [g] し ます . 


| Ver.4.5 | [ Ver.4.2] 
サ プ フ ァイル 解放 解放 する モ も シー ュー- ル の 選択 : 
人 痢 あま もの に ご こく きま 
RRR-73.BAS 
RRR-71 .BAS 
RRR-73.BAS 


_RRR-71 .BAS 


(④ rrr-72.BAS が な く な り ま す . とれ は 【f・2】 キー で 確認 で きま す . 
C/ フ "ログ * ラ ム 和 選択 





⑧⑤ 同様 に ファ イル メニ ュー か ら U を 行い 。 ファ イル 名 KC rrr-71.BAS を 指定 し て ] し ます . 
rrrー71 .BAS が メモ リ か ら 消 えま す . rrr-75.BAS の み 残 り ま す . 








【 例題 31】 メイ ンプ ログ ラム の 設定 
次 の 3 つの プロ グラ ム を 各 々 エエ ャ ー74、 エ ャ エー75。 ェ ェ エー76 で 保存 し , 次 に 各々 を メモ リ に 
呼ん で , rrrー75, エエ ャ ー74,。 ェ ェ エー76 の 順 で 実行 せよ . 


RRR-74 INPUT x を 
PRINT x% 
END 


RRR-75 INPUT x% 
PRINT 2 * タメ を 
END 


RRR-76 INPUT を 
PRINT を ネネ X 欠 玉名 
END 











【 解 説 】 @ 〇 複数 プロ グラ ム を 読み 込ん で 任意 の プロ グラ ム を 実行 し ます . 

(① rrrー-74、 ェ ャ ャ ー75、 rrr-76 の プロ グラ ム を つく り 各 々 保存 し ます . 

ファ イル メニ ュー を 選択 し ます 

⑧ "1/ サ ブフ ァイル 読込 "(バー ジョ ン 4・5) また は エ / サ プ フ ァ イ ル 常 駐 -…. "(バー ジョ ン 
4 .2) を 選び ます . ファ イル 名 を 問 合 わ せ て きま す の で , rrr-74 [J] と し ます . と の と き , 形式 
は M/ モ ジュ ー ル と し ます . ファ イル rrr-74 が メモ リ KC 読 み 込ま れ ま す . 

④ 同様 C rrr-75 と ェ rr-76 を メモ リ K 読 み 込 み ま す . 

⑤ 【Ff・2〕】 を お ぉ お す と 読み 込ま れ た ファ イル 名 が リス ト さ れ ま す . 
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ーー ュー ーー ニー テー ラーーー つ Sa キャ = ニ キャ = 











) 


まず rrr-75 を 実行 し ます . 

実行 メニ ュー を 選び ます . 

"M/ メ イン モジ ュー ル の 設定 ... "を 選び ます . 

"エエ エー75.BAS” を 選択 し て [) し ます . rrr-75 が メイ ンプ ログ ラム と な り ま す . 

⑧ ば ・5) で rrr-75 が 実行 され ます . 

⑨ 同様 K 実 行 メ ニュ ー か ら M/ メ イン モジ ュー ル の 設定 ... "を 選び , rrr-76 ) に より rrr-76 
を メイ ンプ ログ ラム と し て 【f・5]】 で rrr-76 を 実行 し ます . 

⑩ 同様 に 実行 メニ ュー か ら "M/ メ イン モジ ュー ル の 設定 ... "を 選び , rrr-74 (JJ] と し て [5 
で rrr-74 を 実行 し ます . 


fs) 
【 結 果 】 


⑦ 





【 例題 32】 マル チ モ ジ ュー ルプ ログ ラム の 保存 
【 例題 31 】 で つく っ た RRR-74、 RRR-75、 RRR-76 の 各 プ ログ ラム を 一 緒 C 保 存 せよ . 








【 解 説 】 〇 マル チ モ ジ ュー ルプ ログ ラム を 保存 し ます . 
Q①  RRR-74, RRR-75, RRR-76 の 8 つの プロ グラ ム を 同時 に 保存 する と と が で きま す . 

サブ ファ イル 常駐 に より 3 つの プロ グラ ム が メモ リ に ある も の と し ます . ファ イル メニ ュー を 選 
択 し ます . 


②) 


"Y/ す べ て 保存 "を 選び ます . 8 つの プロ グラ ム が 同時 保存 され ます . 


⑬ ファ イル 名 は メイ ン モ ジュ ー ル (今回 は rrr-74.BAS) の rrr-74 拡張 子 を 。,MAK と する メイ 


ン フ ァイル を つく り ま す . 





【 例題 33】 マル チ モ ジ ュー ルプ ログ ラム の 読み 込み 
【 例 題 32】 で 保存 し た マル チ モ ジ ュー ルプ ログ ラム を 読み 込め . 











【 解 説 】 〇 マル チ モ ジ ュー ルプ ログ ラム を 読み 込み ます . 
①.。 ファ イル メニ ュー を 選択 し ます . 

③ "0/ 読 込 .… "を 選び ます . 

③ ファ イル 名 KC RRR-74.MAK を 入力 し ます . 8 つの モジ ュー ル か ら な る マル チ プ ログ ラム が 読み 
込ま れ ま す . 


④ 確認 の た め 【[f・2] キー を お す と , 次 の よう (C 5 つの プロ グラ ム 名 が か か れ て いま す . 


プ Z 
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【 例題 34】 ドキ ュ メ ント ファ イル の 作成 
次 の ドキ ュ メ ント を つく り フ ァイル ワー プロ 1・ と し て 保存 せよ . 


拝啓 
ます ます ご 清栄 の こと と お 査 び 申 し 上 げ ま す 


さて , 下記 の 通り 定例 会 議 を 開催 し ます の で 
ご 出席 くだ さい 


敬具 


1 必 の DDー 
訓 圧 有 跡 藻 
8 憶 両 羽 加 


計 嘩 ・…… 


以上 











【 解 説 】 〇 ③ ドキ ュ メ ント ファ イル を つく り ま す . 
① ファ イル メニ ュー を 選び ます . 

③ "C/ サ ブフ ァイル 作成 .. "を 選び ます . 

③⑬ 次 の ファ イル 名 入力 画面 と な り ま す . 


[ Ver.4.5 | 
C/ サ プ フ ァ イ ル 作 成 
ファ イル 名 , ファ イル 形式 を 設定 し て くだ さい 
N/ フ ァイル 名 : 
(*) M/ モ ジュ ー ル ブログ ラム 
( ) 1/ イ ンク ルー ド フ ァイル 
( ) D/7 ド キュ メン ト フ ァイル 
く < 確認 > < 取消 > <H/ ヘ ルプ > 
[ Ver.4.2] 
N/ フ ァイル 名 : 
形式 
(*) M/ モ シュール 
(て ) 1/ イ ンク ルー ト ~ 


( ) D/ ト ~ キ ュ メ ント 


《①④ ファ イル 名 を "ワー プロ 1.", "D/ ド キュ メン ト "を 選択 し ます . 通常 の プロ グラ ム は M/ モ ジュ 
ー ル に よっ て , 構文 チェ ッ ク が 行わ れ ま す . ドキ ュ メ ント ファ イル で は BASTC 文 を 使う わけ で は あ 


り ま せん か ら D/ ド キュ メン ト に よっ て , 構文 チェ ッ ク を し な いよ うに し ます 


と ん 】 


5 章 サブ ファ イル ・ テ キス ト フ ァイル ・ メ イン プロ グラ ム の 設定 ・ イ ンク ルー ド フ ァイル 


ーー ーーーーーー ン ーー ニー テニ ーー ニャ そ ss 





[ Ver.4.5] 
ツ サ アフ ファ ィ ル 作成 
ファ イル 名 , ファ イル 形式 を 設定 し て くだ さい 
N/ フ ァイル 名 : 還 馬 評 還 議 
( ) M/ モ ジュ ー ル プロ グラ ム 
( ) 1/ イ ンク ルー ド 
(*) 
[ Ver.4.2 ] 
N/ フ ァイル 名 : ワー ブフ * ロ 1 
形式 
( ) M/ モ > シュール 
( ) 1/ イ ンク ルー ト ~ 
(*) D/ ト ~ キ ッ メ ント 
⑮ 文章 を か き 込 み ま す 


G 


ファ イル メニ ュー か ら 中 | で 印刷 , ファ イル メニ ュー か ら 【S] で ファ イル に 保存 され ます . 
り と の 機能 を 使っ て CONFTG.SYS や AUTOEXEC.BAT な ど を 書き 換え る と と が で きま す . 


人 G 





【 例題 35】 ドキ ュ メ ント ファ イル 
【 例 題 34】 の ドキ ュ メ ント ファ イル を 使っ て , 次 の ドキ ュ メ ント を つく れ 


拝啓 
ます ます ご 清栄 の こと と お 客 び 申し 上 げ ま す 
さて 下記 の 遂 り 定例 会 議 を 開催 し ます の で 
ご 出席 くだ さい 
才 具 
記 
1 . 日 時 : 1 1 月 15 日 15 時 か ら 16 時 
2 . 場所 : 第 三 会 議 室 
3 . 議題 : 創立 30 周 年 行事 に つい て 
4 . 出席 者 : 総務 部 全員 
5 . その 他 : 前 回 の 宿 頭 を 持参 の こと 


以上 











【 解 説 】 〇 ドキ ュ メ ント ファ イル の 追加 を し ます . 

① ファ イル メニ ュー か ら [O) , ワー プロ 1 に より ,【 例 題 34】 の ドキ ュ メ ント を 読み 出し ます -. 
③ カー ソル を 移し て , "11 月 15 日 …… 持参 の と と "を 追加 し て 記入 し ます . 

③ 保存 は ファ イル メニ ュー か ら [Al , ワー プロ 2・(a】 , 印刷 は ファ イル メニ ュー か ら [) で す . 





【 例題 36】 イン クル ー ド ファ イル の 作成 
下 の イ ンク ルー ド フ ァイル を ファ イル 名 "HAIRETSU. IN" で つく れ . 


DIM as(20) 
COMMON asS() 











と ん / 
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【 解 説 】 〇 ③ イン クル ー ド ファ イル の 作成 

① イン クル ー ド ファ イル を つく り ま す . この 使い 方 は II 編 24 章 で 扱い ます . 

② ファ イル メニ ュー を 選び ます . 次 に C"C/ サ ブフ ァイル 作成 .… "を 選び ます 

⑧ ファ イル 名 を 問 合 わ せま す の で "hairetsu.in" と し ます . 形式 を "1 エ / イ ンク ルー ド " と し ます . 
に より 初期 画面 へ も どり ます -. 





[ Ver.4.5] 
CcC/ サ プ フ ァ イ ル 作 成 
ファ イル 名 , ファ イル 形式 を 設定 し て くだ さい 
N/ ブ ファ イル 名 : hairetsu.in ~- 
( ) M/ モ ゾ ジュー ルプ ログ ラム 
(eS だ ツク ルー ドア イル 
( ) D/ ド キュ メン ト フ ァイル 
< 確認 > < 取消 > <H/ ヘ ルプ > 
[ Ver.4.2 ] 
.N/ フ ァイル 名 : hairetsu.bas 
形式 
( ) M/ モ シ ~ ュ ー ル 確認 


(**) 1/ イ ンク ルー ト ~ 
( ) D/ ト ~ キ ラメ ント 


取消 
④ 問題 の 2 行 を か きま す . こと れ は 配列 A$(20 ) を 宮 言 し とれ を グロ ー バ ル 変 数 と する ゃ の で す . 
⑮ ファ イル メニ ュー を 選択 し ,【AJ に より 保存 を 選び ます . ファ イル 名 を bihairetsu・in、 形式 
を ”T/ テ キス ト ” と し て し ます . イン クル ー ド ファ イル が ドラ イブ b に 格納 され ます . 





【 例題 37】 イン クル ー ド ファ イル の 実行 と 表示 
次 の プロ グラ ム を ファ イル 名 RRR-10 .BAS で つく り , 次 C【 例 題 36】 で つく っ た イン クル 
ー ド ファ イル を つない で 実行 し , 次 に イン クル ー ド ファ イル を 表示 せよ . 


REM $INCLUDE: 'B:HAIRETSU.IN' 
FOR ji = 0 TO 19 
READ a$(1i) 
NEXT i 
FOR i = 0 TO 19 
IF a$*(i) = "Tokyo" THEN PRINT as$(i) 
NEXT i 
END 
DATA Osaka,Nagoya,Ueno,Kyoto 
DATA Kobe,Nara,Kagoshima,Sapporo 
DATA Yamaguchi,Yokohama,Chiba,Tsu 
DATA Fukushima,Tokyo,Sendai,Miyagi 
DATA Shizuoka,Hamamatsu,Mishima,Kanazawa 











【 解 説 】 ③ イン クル ー ド ファ イル の 連結 と 表示 を し ます . 
① 【 例 題 6】 の ファ イル HATRETSU.1N を 読み 込み ます . ファ イル メニ ュー か ら 則 で 次 の 画面 と 
な り ま す . ファ イル 名 を B : HATRETSU.TIN。 T/ ノ イン クル ー ド ファ イル を 指定 し て は ) し ます . 
5 の 


Pa 





5 章 サブ ファ イル ・ テ キス ト フ ァイル ・ メ イン プロ グラ ム の 設定 ・ イ ンク ルー ド フ ァイル 


と れ で イン クル ー ド ファ イル が 読み 込ま れ , フ ア イ ル RRR-10 に つなが り ま す . 


RRR-10.BAS 
L/ サ プ フ ァ イ ル 読 込 
ファ イル 名 , ファ イル 形式 を 設定 し て くだ さい 


N/ フ ァイル 名 : 語 語 iE@bgG 語 頂 


B:\ 
アフ ブフ ァ タイ 北 D/ デ ィ レ クト リ 


RENSHU-1.BAS  RRR-51.BAS RRR-73. 
RENSHU-2.BAS  RRR-6.BAS RRR-74. 
RRR-10.BAS RRR-7 .BAS RRR-75. 
RRR-100.BAS RRR-70.BAS RRR-76 . 
RRR-2 .BAS RRR-71 .BAS RRR-85 . 
RRR-50.BAS RRR-72 .BAS RRR-95. 


( ) M/ モ ジュ ー ル プロ グラ ム 
・ ファ イル 


認 > < 取消 > < H/ ヘ ルプ > 





⑨⑧ [f・5〕 で 実行 し ます . Tokyo と 表示 され ます 

③ 表示 メニ ュー か ら "1L/ イ ンク ルー ド フ ァイル 表示 "を 選択 し ます . RRR-10 で 使わ れ て いる イン ク 
ルー ド フ ァイル hairetsu・in が 表示 され ます . 

④ 次 の よう に イン クル ー ド ファ イル の 実行 され る 部 分 へ 挿入 され た 形 で 表示 され ます 


RRR-10.BAS 
REM $INCLUDE: 'B:HAIRETSU.IN' 





FOR ji = 0 TO 19 
READ a$(i) 
NEXT i 
FOR i = 0 TO 19 
IF a$(i) = "Tokyo" THEN PRINT as(i) 
NEXT ji 
END 
DATA Osaka,Nagoya,Ueno,Kyoto 
DATA Kobe,Nara,Kagoshima,Sapporo 
DATA Yamaguchi,Yokohama,Chiba,Tsu 
DATA Fukushima,Tokyo,Sendai,Miyagi 
DATA Shizuoka,Hamamatsu,Mishima,Kanazawa 


⑤ 項 ③ を 再度 行う と 元 へ も どり ます . 





【 例題 38】 イン クル ー ド ファ イル の 編集 
【 例題 26 】 の イン クル ー ド ファ イル "hairetsu.in” の 修正 画面 を つく れ . 








【 解 説 】 〇 イン クル ー ド ファ イル の 編集 を し ます 

① 表示 メニ ュー か ら "1 エ / イ ンク ルー ド フ ァイル 編集 "を 選び ます 

②③ イン クル ー ド ファ イル "hairetsu.in" が 表示 され , 編集 が 可能 と な り ま す . 
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DIM as(20) 
COMMON asS() 


③ 編集 後 は ファ イル メニ ュー を 選択 し , に よっ て 保存 を 選び 保存 し ます . 
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ee ペー フーン ee 





【 例題 39】 画面 分 割 
次 の プロ グラ ム を 使い , 画面 を 分 割 し て , 上 を メイ ン ル ー チ ン , 下 を PR の サブ ルー チン の 
表示 と せよ . な お と の プロ グラ ム は 1 か ら 100 の 和 を 求め る る の と する . 


DECLARE SUB pr (2Z) 

t = 0 

FOR ji = 1 TO 100 
寺 作 。 第 電 

NEXT i 

CALL pr(t) 

END 


SUB pr (2Z) 
・ PRINT "1+2+3+・・・・+100=" iz 
END SUB 


【 結 果 】 


1+2+3+・・・・+100= 5050 











【 解 説 】 〇 画面 を 上 下 K 分 割 し ます . 

1 メイ ン ル ー チ ン と サブ ルー チン PR を つく り ま す . ファ イル 名 RRR-?70 で 保存 し ます 

③ 表示 メニ ュー を 選び ます . こと で , "P/ 画 面 分 割 "を 選び ます . 分 割 を も どす と きゃ も , と の 操作 で 
す . 

③⑬ 次 の 2 画面 と な た な り ます . 上 下 と も メイ ン ル ー チ ン で す . 


RRR-70.BAS 
DECLARE SUB pr (2) 
t = 0 
FOR i = 1 TO 100 
t = も キキ ォ ュ 
NEXT i 
CALL pr(t) 
END 
RRR-70.BAS 
DECLARE SUB pr (z) 
t = 0 
FOR i = 1 TO 100 
せ ( 志 再生 
NEXT i 
CALL pr(t) 
END 


ター イレ クト モー ト ~ 
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rwctrec 





④ に よっ て 下 側が アク ティ ブウ ィ ン ド ウ と な り ま す . と を お す と 内 容 は サ 
ブル ー チ ン PR と な り ま す . 


RRR-70.BAS 

DECLARE SUB pr (z) 

t = 0 

FOR i = 1 TO 100 

t = t+ ュ 

NEXT ji 

CALL pr(t) 

END 

」 RRR-70.BAS:pr 
タバ イ レク ト モー ト ~ 


⑧ さら に を お す と ダイ レク トモ ー ド , さら に を お す と 上 側が アク ティ ブウ イン ドウ 
と な り ま す . 





【 例題 40】 アク ティ ブ 画 面 の フル スク リー ン 

【 例 題 39】 の プロ グラ ム で ビュ ー ウ ィ ン ド ウ を る 分割 し , 上 段 に メイ ンプ ログ ラム , 下段 
サブ プルー チン PR を 表示 し , 下段 を アク ティ ブ 画 面 と し て か ら そ の 画面 を フル スク リー ン と せ 
中 








【 解 説 】 〇 アク ティ ブ 画 面 を フル スク リー ン と し ます . 
① 【 例 題 39】 の 手順 で , ビュ ー ウ ィ ン ド ウ を 2 分 割 し , 下段 を アク ティ ブ 画 面 と し 。 か つ サ ブル ー 
チン を 表示 する 画面 と し ます . 

③④ 【CTRLJ +:E10) に より アク ティ ブ 画 面 を フル スク リー ン と し ます . と の 操作 で 元 へ も どり ます . 


RRR-70.BAS:pr 


SUB pr (2z) 
PRINT "1+2+3+・・・・+100="i Z 
END SUB 





【 例題 44】 アク ティ ブー 画 面 の 拡大 ・ 縮 小 
【 例 題 39】 の プロ グラ ム を 表示 し た 後 , ダイ レク トモ ー ド ウィ ンド ウ を 拡大 せよ . 











【 解 説 】 〇 アク ティ ブ 画 面 の 拡大 ・ 縮 小 を し ます . 
① 【 例 題 99】 の プロ グラ ム を つく り ま す . 
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RRR-70.BAS 
DECLARE SUB pr (2Z) 
t = 0 
FOR i = 1 TO 100 
も 宅 作 や ミ 
NEXT i 
CALL pr(t) 
END 
タイ レク ト モー ト ~ 


③ [ff6]】 キー に よっ て , ダイ レク トモ ー ド ウィ ンド ウ を アク ティ ブ 画 面 と し ます . 
③ キー と 人 は) キー を お す と その た びに ダイ レク トモ ー ド ウィ ンド ウ が 拡大 し ます . 


RRR-70.BAS 
DECLARE SUB pr (2Zz) 
t = 0 
FOR ji = 1 TO 100 

も 生化 中 
NEXT i 
CALL pr(t) 
END 
タミル レ クト S 志 人 6 


の キー と [ キーc よ っ て , 逆 に アク ティ ブウ ィ ン ド ウ を 縮小 で きま す . 
ウィ ンド ウ の 分 割 の まとめ 
ウィ ンド ウ は ① ビ ュー "ウィン ドウ , ダイ レク ト ・ モ ー ド ・ ウ ィ ン ド ウ , ウォッ チ ・ ウ ィ ン ド 
ウ の 5 種 が あり ます . 
Ver.4.5 | 


F/ フ ァイル E/ 編 集 vV/ 表 示 S/ 検 索 R/ 実 行 D/ テ デパ バック ~ C/ 関 迷 0/ オ プア シ ョ ン  H/ ヘ ルフ" 
RRR-70.BAS し : <FALSE> ウォ ッ チ ・ 
RRR-70.BAS ij: <FALSE> ウイ ンド ウ 
RRR-70.BAS 
DECLARE SUB pr (z!) 
t = 0O 
FOR i = 1 TO 100 
加地 只 授 R 
NEXT i 欄 mー ツ ッ 尊 
CALL pr( い イン ドウ 
END 


ター イレ クト モー ト ~ ダイ レク ト 
ぁ 赴 王 層 * 
ウイ ジ ドウ 





<SHIFT+F1= ヘ ルフ * > <F6= 窓 切換 > <F2=SUB 一 覧 > <F5= 実 行 > <F8= ト レー ス > ! 00001:001 
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ビュ ー・ ウ ィ ン ド ウ で は タイ トル が 反転 表示 され て いる 画面 が アクティブ 画面 で す . ダイ レク ト ・ 
モー ド ・ ウ ィ ン ド ウ が アク ティ ブ な 場合 は "ダイ レク ト ・ モ ー ド "の 部 分 が 反転 表示 され ます 

ビュ ー・ ウ ィ ン ド ウ は 2 つ に 分割 で きま す . 分 割 さ れ た ビュ ー・ ウ ィ ン ドウ の どちら か を アク 
ティ ブ に し た り , ダイ レク ト ・ モ ー ド を アク ティ ブ に し た り で きま す . また , アク ティ ブ な 画面 を フ 
ルス クリ ー ン に で きま す . また , アク ティ ブウ ィ ン ド ウ の 大 き さ を 拡大 し た り , 縮小 し た り で きま す 
と れ ら の 関係 を 図 に 示し ます 


ビュ ー ウ イン ドウ 
の 


昔 

















+/ ク ティ ブ 画 面 





IGRPHI VIE 
トー ダイ レク トモ ー ド に ーー デ 


に ーー ニー ニニ ーーー ニ ーー ニー 





























アク ティ ブ 画 面 の 変更 アク ティ ブ 画 面 の 変更 
ISHIFT+[f-6 

アク ティ ブ 画 面 の 
フル スク リー ン 化 
CTRL]+ FE:10 

















アク ティ ブ 画 面 


[タイ トル 1 | 
| | の 撤 大 縮小 


タイ クト モー ドー | [GRPHI+ ビ 
1 GRPH|+ 






























































【 例題 42】 サブ ルー チン の 一 覧 
次 の プロ グラ ム を つく り , サブ ルー チン の 一 覧 を 確認 せよ. た だ し 。 と の プロ グラ ム は ファ 
イル 名 は RRR-?.BAS と し ます . 


DECLARE SUB al1 (z を を, Zzz, zzz と) 

DECLARE SUB a2 (z AS INTEGER, zz AS INTEGER) 
INPUT x% 

STOP 

CALL a1(X を ,。 xx を 。 XXX を ) 

PRINT xx 

PRINT xxx% 

END 


SUB a1 (2 を 。 zz を 。 Zzz 多 ) 


zz% = 0 

FOR i = 1 TO z% 
2Z を = ZZ% + ュ 

NEXT i 

STOP 


CALL a2(z を 。 yy 名 ) 
ZZ2Z% = ニーy ア 多 
END SUB 


SUB a2 (y を 。 yy 名 ) 

2 = 1 

FOR i = y% TO 1 STEP -1 
2 を = 2Z 鐘 * ji 


NEXT i 
YY を = zZ 如 
STOP 

END SUB 











【 解 説 】 〇 サブ ルー チン の 一 覧 を つく り ま す . 
① 表示 メニ ュー を 選び ます . 
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⑧ と と で "8S/SDB 一 覧 ..… "を 選び ます . 次 の よう に サブ ルー チン の 一 覧 が で きま す -. 
[ Ver.4.5 ] 


Cc/ 編 集 す る プロ シー ジャ 択 し て くだ さい 


[ Ver.4.2 ] 


③⑬ 矢印 キー [1 また は で プロ グラ ム を 選択 で きま す . た と えば ”"a1” を 選ん で (J する と サブ ル 


ー チ ン a1 が 表示 され ます . 


RRR-7 .BAS:a1 
SUB a]1 (2%, ZZ%, ZZZ%%) 


zz% = 0 

FOR ji = 1 TO z% 
ZZ を = ZZ2 を + 

NEXT i 

STOP 


CALL a2(zZ%,。 Y ツ 名) 
ZZ22% = YY ア 欠 
END SUB 


④ な お [ff・2] に よっ て る 同様 の 一 覧 が 選べ ます -. 





【 例題 43】 サブ ルー チン の 選択 
【 例 題 442】 の プロ グラ ム を 使っ て , メイ ン ル ー チ ン , サブ ルー チン を 順に 呼び 出せ . 








5Z 
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【 解 説 】 〇 メイ ンプ ログ ラム , サブ ルー チン を 順に 呼び 出し ます . 

① 表示 メニ ュー を 選び ます -. 

⑧ と と で "E/ 次 の SUB” を 選び ます -. 

③ 現在 表示 され て いる 次 の サブ ルー チン また は ファ ンク ショ ン が 表示 され ます . た と えば , a1 の サナ 
ブルー チン が 表示 され て いる 状態 で . と の 手順 を 行う と サブ ルー チン a2 が 表示 され ます . 

④ な お , + [f・2) で 同じ こと が で きま す . と の くり 返し で 。 メイ ンプ ログ ラム , サブ ルー 
チン , ファ ンク ショ ン を 呼び 出し ます . 


5 ざ 








7 章 編 集 





【 例題 44】 編集 の と り 消し 
次 の プロ グラ ム を つく り , 次 C の よう に 1 行 目 を 修正 し て いる 途中 で と れ を と り 消 し て , 
元 べ もど せ . 
PRINT "Quick Basic ハ へ ~ ン リナ ケー ンコ ~ テ ~ ス 。" 
END 


⑧ PRINT "Quick C ゲン コー デス 。" 
END 








【 解 説 】 〇 アン ドウ 機能 で 修正 を と り 消し ます . 
① 問題 の プロ グラ ム を つく り ま す . 
②③ 次 に カー ソル を "B” に お き 〔DEL) キー を お し て 文字 を 消し , を お し て の よう に し ます . 
③⑬ と と で 編集 メニ ュー を 選択 し , "U/ 元 C 戻 す " を 選び ます . 

最初 の 状態 に も ぉ どり ます . 





【 例題 45】 編集 機能 こよ る コピ ー と ペー スト 
項 ③ の プロ グラ ム を 使い , RND の 前 に 1 行 目 か ら 5 行 目 ま で を 挿入 し て , 数 *, 9 を 人 入力 し 


て 積 を 求め て 表示 し , 次 に 再度 x と y を 入力 し て 積 を 求め て 表示 する プロ グラ ム と せよ ・ 





【 解 説 】 〇 / 編 集 の C/ コ ピー と PF/ ペ ー ス ト を 使い ます . 
④ 1 文字 単位 の 挿入 , 削除 , 訂正 は [DEL) , [BS , キー な ど で 簡 単に 行え を ます . し か し , 復 


数 行 を 扱う と き は TE/ 編 集 機能 を 使う と 簡単 で す . 
② 今回 は INPUT x, ゞ と z=x*y と PRTNT xi" ォ "sys = 52 の ら 5 行 を END の 前 へ 挿入 し ます . 
⑧ 


第 1 に どの 行 を 扱う か を 指定 し ます . 以下 の プロ グラ ム を 使い , END の EC カー ソル を お き , 
CTRL] と [SHIFT) と [EE] キー を 同時 に お し ます . 第 8 行 の PRINT 以下 が 反転 表示 され ます . さ 
ら に [CTRL] と [SHIFT) と [EE キー を お す と 1 つ 上 の 第 2 行 が 反転 表示 され ます . も う 一 度 と れ を 
行い ます . 第 1 行 $ 反 転 表示 し ます . この 反転 表示 部 分 が 挿入 , 削除 の 対象 で す . な お 矢印 キー を 
お す と 元 へ も どり ます 




















INPUT *x, y 

2 = ヌ ネ ※ ア 

PRINT 3 "3 Y) "03 る 
END 


EIC カー ソル を お き , と [SHIFT] を お し た まま 回 キー を 3 回 お す と 第 1 一 第 3 行 が 反転 表示 され 
る . 
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④ 次 < #/ 編 集 モ ー ド を 選び ます . 
⑮ と と で は 0C/ コ ピー を 選び ます . 画面 上 は 変化 は あり ませ ん が , 指定 され た 第 1 一 第 3 行 が クリ ッ 
プ ボ ー ド と 呼ば れる メモ リ に か き 込 まれ ます . 
⑯ カー ソル を END の BE の 上 に お きま す -. 編集 メニ ュー を 選び ます -. 今度 は P/ ペ ー ス ト を 涯 び ま す 。 
⑦ [GRPH) + [BS ) キー を お ぉ おす と 元 へ も どり ます . 
⑧ クリ ッ プ ボー ド の 5 行 が 挿入 され ます . 
INPUT x, y 


2 = X *※ ア 
PRTINT 5 下 


1 間 し を 王 MM 拓 っ 
人 - 3 行 押入 
END - 


⑨ クリ ッ プ ボー ド の 35 行 は 残っ て いま すか らい つ で も ど と へ で も 挿入 する こと が で きま す . た と え 
ば , サブ ルー チン の 画面 を 出し て , サブ ルー チン の 中 の 指定 行 へ 挿 信 する と と る 可能 で す . 


【 実 行 結果 】 
9 の 8 
2 * 3 = 6 
? 5。9 
5 * 9 = 45 





【 例題 46】 編集 機能 を 使っ た 削除 

【 例 題 45】 の プロ グラ ム の 4 行 目 の INPUT x, y を 削除 し , 次 に 新しい 4 行 目 の z=x*y 
を z=x/y と し , 新しい 5 行 目 の * を /K 変 更 せ す よ . と の プロ グラ ム は テ ェ と ゞ を 入力 し て 積 を 求 
め て 表示 し , 次 (Cx/y を 2 に 求め て 表示 する プロ グラ ム で ある . 











【 解 説 】 〇 世 編 集 機 能 を 使っ て 行 単位 の 削除 を し ます . 

① 時 / 編 集 の T/ カ ッ ト と エ / 削 除 は 行 単位 で 削除 し ます - 

③⑬ まず 削除 する 行 を 指定 し ます . 今回 は 4 行 目 の INPUT x, y を 削除 し ます か ら , 5 行 目 の 先 頭 の 
2z に カー ソル を お き 〔CTRL] + [SHIFT] +[E] キー を お し ます . 4 行 日 が 反転 表示 され ます . 

③ 編集 メニ ュー を 選び ます . T/ カ ッ ト ま た は せ せ / 削 除 を 選び ます . 4 行 目 の INPUT xy が 削除 さ 
れ ま す . T/ カ ッ ト の 場合 は 第 4 行 が クリ ッ プ ボー ド K 残 り ま す . B/ 削 除 で は クリ ッ プ ボー ド に ゃ 残 
り ま せん . 

④ 次 の よう に な り ま す . 














INPUT x, y 

2 = メキ ネ ア 

PRINT xi "mi yi "ei っ 
2 = メタ ネッ ア 

PRINT xi "kei yi "ei z 
END 


⑤ 4 行 目 の * を /c, 5 行 目 の * を / に 変更 し ます -. 


6 の 


7 章 


= ニュ ュー ニー ニー 


INPUT x, y 

の 当 事 少 

PRINT Xi "YE る 
z = x 調 y 

PRINT xi 敵 較 茹 yi "の" 2Z 
END 


【 実 行 結果 】 


8,5 8 と 5 を 入力 の 例 


5 
5 


て 年 っ 
WW 
ー 
の 


8 
8 


編 集 


CTR 了 ュ テテ 





【 例題 47】 サブ ルー チン へ 行 単位 で コピ ー 


し て 使う $ ぉ の と する . 





数 x を 入力 し , *" を 表示 し , 次 に , サブ ルー チン a へ 移っ て , x* を 表示 する プロ グラ ム を 
つく れ . た だ し , サブ ルー チン で は , メイ ン の INPUT 文 に PRINT 文 を コピ ー し て 1 部 修正 











【 解 説 】 ②③ メイ ンプ ログ ラム の 行 を サブ ルー チン ヘコ ピー し ます . 
① 次 の よう に メイ ンプ ログ ラム と サブ ルー チン を つく り ま す . 
INPUT x 
アミ メキ 
PRINT xi "2 ="j y 
CALL a(X) 
END 
END の 後 (C SUB a(x) を か き [ コ ] また は カー ソル の 行 を か える と 下 の 画面 と な り ま す . 
SUB a (X) 


END SUB 


② メイ ンプ ログ ラム の 第 2 行 と 第 3 行 を サブ ルー チン へ 挿入 し ます . し た が っ て , まず メイ ンプ ロ 





グラ ム の 第 3 行 目 の CALL a(x) の CC カー ソル を お き 。 [CTRL + [SHIFT) +[E] を る 
2 行 ~3 行 が 反転 表示 され ます . 
BE/ 編 集 メ ニュ ー を 選び , C/ コ ピー を 選ん で , 2 行 を クリ ッ プ ボー ド に か き 込 み ま す . 
+ [f・2J キー で SUB a(x) の サブ ルー チン が アク ティ ブ 画 面 と な り ま す . 
カー ソル を サブ ルー チン の 空白 行 に お き 編集 メニ ュー か ら C/ コ ピー を 選び ます . 
次 の よう KC 2 行 が 挿入 され ます . 


SUB a ( ぶ ) 








( 
K 


END SUB 


回 お し ます . 





⑦ 空白 に カー ソル を お き [DEL] で 空 碧 を と り , 次 に , 第 2 行 に ネェ を 追加 し , 第 8 行 の る を 3 に 


変更 し ます . 
SUB a 
マニ メ ネ XX 
PRINT xi "7 3 ="i Y 
END SUB 


67 


| 挙 備 ・ 環 境 コ マン ド 編 
ーー 
【 実 行 結果 】 
2 5 5 を 入力 の 例 
5 ^ 2 25 
5 8 125 


MM 
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【 例 題 48】 検 索 
次 の プロ グラ ム を 作成 し , "1" を 検索 せよ . た だ し , と の プロ グラ ム は 1 か ら 10 まで の 各 
値 の 和 , 2 乗 の 和 , 3 乗 の 和 を 求め る $ る の で す - 


FOR i 


N 
WU 0 


NEXT i 
PRINT 
PRINT y 
PRINT z 
END 








【 解 説 】 〇 文字 の 検索 を し ます . 

① 文字 。 文字 列 の 検索 を 行い ます . と の 例 で は プロ グラ ム が 短い た め , 簡単 C 1 目 で わか り ま す が , 
長い プロ グラ ム の 中 で 特定 の 文字 や 文字 列 を さがす の に 便利 で す . 

③ 検索 メニ ュー を 選択 し ます . 

③ "fP/ 検 索 ”... を 選び ます . 次 の 検索 文字 列 指定 画面 と な り ま す . 

[ Ver.4.5] 


F/ 検 案 
検索 する 文字 列 と 検索 条件 を 設定 し て くだ さい 


F/ 検 索 対 象 : 
男 囲 
[ ] M/ 大 小文字 区 別 ( ) 1. 現在 の ウィ ンド ウ 
[ ] w/ 全 体 一 致 (*) 2. 現在 の モジ シュ ー ル 
6 》 う 3。 全 ダ ミー ル 
< 確認 > < 取消 > < く H/ ヘ ルプ > 
[Ver.4.2] 
検 案 [ ]M/ 大 小文字 区 別 
( ) 1/ ア クティ フ ~ ウ ィ ン ト ~ ウ [ ] w/ 全 体 一 致 
(*) 2/ カ レン トウ ィ ン ト ~ ウ 
( ) 3/ 全 体 


確認 取消 


④ 今回 は "1" で 検索 を し ます の で "1" を か き 込 み ま す . 
⑮ 回 に よっ て , 1 行 目 の FOR 3=1 TO 10 の iC カー ソル が 移り ます . 検索 メニ ュー で "ER/ 次 
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ーーーーーーーーーー ヤ ーー て て て て _ ワ oo 
を 検索 "を 選ぶ と 次 の 1 C と カー ソル が 移り ます . 
⑥⑯ な お , "M/ 大 小文字 区 別 ” を 選択 し て いれ ば , i は 小文字 で すか ら PRTNT * の T は 検索 し ませ ん . 
は A 昌 キー で ”M/ 大 小文字 区 別 ”" の 前 の []C カー ソル を お き , スペ ー ス を お す と [X] と たり 」 大 文 
字 ・ 小 文字 の 区 別 を し ます . 再度 スペ ー ス を お す と 解除 され ます . 





【 例題 49】 文字 列 の 検索 
【 例 題 48】 の プロ グラ ム を 使っ て , PRINT を 検索 せよ . 











SB 


【 解 説 】 〇 文字 列 を 検索 し ます . 

① 【 例 題 48】 の 手順 で 検索 文字 列 と し て "PRINT "を 指定 し ます . (によって 最初 の PRINT に 
カー ソル が 移り ます . 

③ 検索 メニ ュー を 選び , 次 に "R/ 次 を 検索 "を 選び ます . 次 の "PRINT”" に カー ソル を 移し ます . 以 
下 同様 に を お す と 順に 次 の "PRINT" を 検索 し ます . 





【 例 題 50】 置 換 
【 例 題 48】 の プロ グラ ム を 使っ て , PRINT を LPRINT (cc 置き か えよ . 





【 解 説 】 〇 文字 列 を 検索 し , その 文字 列 を 指定 し た 文字 列 に 置き か えま す 

①④ 検索 メニ ュー を 選び ます . 

②③ "0C/ 置 換 ・.." を 選び ます . 

③ "『/ 置 換 前 "(c”print"[TAB) 、m/ 置 換 後 (Cc"1print"[TAB] を し ます . 次 C TABl キー で C/ 
- 括 置換 を 選ん で [) また は [と し ます . 


[ Ver.4.5 ] 
置換 する 文字 列 と 置換 条件 を 設定 し て くだ さい 


F/ 置 換 前 : 隙 還 N 剖 
T/ 置 換 後 : 衣 ERINT 
都 囲 
[ ] M/ 大 小文字 区 別 ( ) 1. 現在 の ウィ ンド ウ 
[ ] w/ 全 体 一 致 (*) 2. 現在 の モジ ュー ル 
( ) 3. 全 モ ジュ ー ル 


< V/ 遂 次 確認 > < 二手 本 計 舌 > 


< 取消 > <H/ ヘ ルプ > 


6 ダ 


8 章 検 索 


ーー ニー 


[ Ver.4.2] 
王 / 置 換 前 Print 
T/ 置 換 後 -1print 
置換 
( ) 1/ ア クティ フ ~ ウ ィ ン ト ~ ウ [ ] M/ 大 小文字 区 別 
(*) 2/ カ レン トウ ィ ン ト ~ ウ [ 〕 w/ 全 体 一 致 
( ) 3/ 全 体 
V/ 拓 次 確認 c/ 一 括 置 換 取消 


④ プロ グラ ム 中 の PRINT は すべ て LPRINT に 置換 され ます . 
FOR i 


1 
と 3 
4 
2 


WW IM 


3 
4 
Z 


NEXT i 





END 





【 例題 51】 部 分 置換 
【 例 題 50】 で つく っ た プロ グラ ム の うち LPRINT y の み PRINT y に か えよ . 











【 解 説 】 @⑥ 検索 文字 列 群 の 1 部 の み を 置換 し ます . 
① 【 例 題 50】 で つく っ た プロ グラ ム を 使い ます . 
③ 検索 メニ ュー を 選び , 次 に "C/ 置 換 " を 選択 し ます . 
③⑬ "E/ 置 換 前 "と し て "1print"、"T/ 置 換 後 " と し て "print” を 指定 し ます . 
③④ 次 V/ 逐 次 確認 を 選ん で [] また は VI) と し ます . カー ソル が PRINT x に お か れ て 次 の 画面 と 
な り ま す . 
Ver.4.5 


F/ フ ァイル E/ 編 集 \V/ 表 示 S/ 検 索 R/ 実 行 D/ デ デック ~ C/ 関 数 0/ オ ファ ショ ン H/ へ ルフ " 
Untitled 
FOR i 


ll 


NEXT i 


LPRINT y 
LPRINT z 
END 


て / 置 換 
処理 を 選択 し て くだ さい 


< Cc/ 還 換 > < 衣 詩 朗 大 > < 取消 > <H/ ヘ ルプ > 
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ee 


[ Ver.4.2] 


F/ フ ァイル EE/ 編 集 V/ 表 示 S/ 検 索 R/ 実 行 D/ デ バッ ク ~ C/ 関 数 H/ ヘ ルフ " (f・1 ) 
RRR-4.BAS 
TO 10 


+ 


MM 


i 
1 
i 


+ 1i 
+ 来 1 玉 1 


LPRINT z 
END 


S/ 置 換 し な い 





⑤ TLPRINT x は 置換 し ませ ん の で "S/ ス キッ プ "(バー ジョ ン 4.5), "8S/ 置 換 し な い ” (バー ジョ ン 
4.2) を 選ん で ([』) また は [S] と し ます . 次 の LPRINT ゞ へ 進み ます . 
⑯ カー ソル が "1LPRINT y"” に お か れ ま す . 
⑦ と と で は 1PRINT ゞ を PRINT ゞ 置換 し ます か ら "C/ 置 換 " (バー ジョ ン 4.5)、 "C/ 置 換 す 
る ”" (バージョン 4・2) に カー ソル を 移し [。] また は (CI と し ます . "LPRINT y" が "PRINT y" 
に 置換 され ます 
FOR i 


MI 


NR ピ 


3 
4 
2 
NEXT i 
LPRINT 





【 例題 82】 ラベ ル の 検索 

次 の プロ グラ ム て 検索 文字 列 "ex” を 指定 し て , ラベ ル "ex: "を 検索 せよ . た だ し , と の プ 
ログ ラム は 1 か ら 10 まで の 和 , 2 乗 の 和 , 3 乗 の 和 を 求め て 表示 する も の で ある が , 3 乗 の 和 
が 200 以上 と な っ た ら 結 果 を 表示 する も の で す . 


ヨー ーー 
トコ 
円 % 


N GOTO ex 


PRINT y 
PRINT z 
END 
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ーー っ ーーー デー キー デー ニーー キ ゃ ンー ュー を me コメ エニー 





= 





ee 





【 解 説 】 〇 ラベ ル の 検索 を 行い ます . 

①④ 検索 メニ ュー を 選択 し ます . 

③ 続い て "1/ ラ ベル 検索 (バー ジョ ン 4・5), " エ / ラ ベル 
⑥) ラベ ル 名 と し て exi を か き 口 ] し ます . ラベ ル "exi "を 検索 し て , カー ソル を 移し ます . 次 の ラ 


” (バー ジョ ン 4・2) を 選び ます -. 


ベル 入力 画面 と な り ま す 
[ Ver.4.5 


検索 する 文字 列 と 検索 条件 を 設定 し て くだ さい 


F/ 検 索 対象 : exi 
還 囲 
[ 〕 M/ 大 小文字 区 別 ( ) 1. 現在 の ウィ ンド ウ 
[ ] w/ 全 体 一 致 (*) 2. 現在 の モジ ュー ル 
( ) 3。 全 モ ジュ ー ル 
< 確認 > < 取消 > <H/ ヘ ルプ > 
[ Ver.4.2] 
E/ 検 索 文字 列 。 ex: 
検 案 [ ]M/ 大 小文字 区 別 
( 。) 1/ 了 アク ティ フト ウィ ント ~ ウ [ ] w/ 全 体 一 致 
(** ) 2/ カ レン トウ ィ ン ト ~ ウ 
( ) 3/ 全 体 


確認 取消 


6Z 
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2 テグ ッッ タプ 


9 章 デバ ッ グ ・ 関 数 





【 例題 83】 トレ ー ス 


炊 の プロ グラ ム は seisu% に 整数 を 入力 し , 階 乗 を 求め る プロ グラ ム で ある . これ を 1 ス 
テッ プ ず つ ト レー ス せ よ . 


DECLARE FUNCTION kaijou (s 多 ) 

INPUT seisu を 

PRINT seisu 和 を: "!=": kaijou(SeiSu シ を ) 
END 


FUNCTION kaijou (5 を ) 
IF s% = 0 THEN 
kaijou = 1 


Kaijou = Ss * kaijou(s を - 1) 
END IF 
END FUNCTION 











【 解 説 】 〇 トレ ー ス を 行い ます . 
① トレ ー ス と は 1 ステ ッ プ ずつ 実行 する と と で す . プロ グラ ム の 流れ を 確認 で きま す .【 例 題 55】 
で 行う , 整数 の ウォ ッ チ と 合わ せ て 行う こと で プロ グラ ム の デバ ッ グ を 簡単 に 行い ます . 
⑬ トレ ー ス 機能 は ば ・8】 キー と 孔 10】 キー で す . [8]】 キー は サブ ルー チン や ファ ンク ショ ン 
の 中 まで トレ ー ス する の に K 対 し , は メイ ンプ ログ ラム の 中 だ け ト レー ス し ます . 
③ キー また は キー を お す た び K 実 行 され て いる ステ ー ト メン ト が 緑色 に な り ま す . 
また 途中 で [f・5】 キー を お す と 通常 の 実行 に 移り ます . 途中 で トレ ー ス を や め て 高速 で 終了 させ る 
場合 に 使い ます . 
④ 実際 に トレ ー ス を 行い ます . 
まず 最初 の [f・8]】 を お し ます . "1NPUT seisu%" が 緑色 と な り ま す . 
次 に 再び を お し ます . 
? が 表示 され ます . 整数 の 入力 で す . 今回 は 6 は J と し ます . 
"PRINT seisu%i"!="jkaijou(seisu%) "が 緑 と な り ま す . 続い て を お し ます . 
FUNCTTON kaijou(s%) の 中 の トレ ー ス に 入り "ITF s%=0 THRN" が 緑色 と な り ま す . 
続い て を お し ます . 
"kaijou=s%*kaijou( s%-1 ) "が 緑色 と な り ま す . 
以下 F・8】 を お す た び に "TEF s%=0 THEN" と "jrkaijou=s%*kaijou( s%-1 ) "を くり 返し 
緑色 と し ます . s% が 0 と な る と 次 の で rai jou=1 が 緑色 と な り ま す . 
を お し ます . 
"ELSE” が 緑色 と な り ま す . 
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u マ ママ マ ママ S シ マシ テテ ーー 


を お し ます . 

*END FUNCTTON" が 緑色 と な り ま す . 

を お し ます . 

"END IF" が 緑色 に な り ま す 

次 か ら の (によって "END FUNCTTON" と "END IF" を くり 返し た 後 フ ァ ン クシ ョ ン か ら ぬ 
け 出 て メイ ンプ ログ ラム へ も どり ます . 

"END" が 緑色 と な り ま す -. 

を お し ます . 全体 が 白く な っ て 終了 で す . 

⑤ を 使う と , 整数 を 入力 し た 後 , ファ ンク ショ ン は 自動 実行 し て . すぐ "PRINT seisu 

%i 7!=" ikaijou(seisu%) "が 緑色 と な り , 次 の 選 10) で "END" が 緑色 と な っ て , 次 の E10) 
で 終了 で す . 





【 例題 54】 低速 トレ ー ス 
【 例 題 53】 の プロ グラ ム を 使っ て , 低速 で トレ ー ス を 自動 実行 せよ . 





【 解 説 】 〇 ③ 〇 トレ ー ス を 低速 で 実行 し ます . 

① トレ ー ス を 低速 で 行い ます . 
デバ ッ グ メニ ュー を 選択 し ます . 

③ T/ ト レー ス を 選び ます . 元 の 画面 に も ゃ どり ます . 

③ を お す と "TLNPUT seisu%" が 緑色 と な り , 入力 待ち と な り ま す の で 整数 を 入力 し ます . 
た と えば 6 で 3 

④ あと は 自 動 的 CC 1 ステ ッ プ ずつ 進め て いき ます . 実行 の ステ ー ト メン ト が 緑色 に か わり ます . 

⑮ な お , デバ パ バッグ メニ ュー を 選ぶ と "T/ ト レー ス " の 前 に * (バー ジョ ン 4.5), > (バー ジョ ン 
4 .2) が つい て いて , トレ ー ス が 選ば れ て いる と と が わか り ま す . 

⑥ 解除 は T/ ト レー ス を 選ん で は 】 し ます . 





| 
【 例題 55】 ウォ ッ チ 

次 の プロ グラ ム を 1 ステ ッ プ ずつ 実行 し . その つど 変数 ミ と * の 値 を チェ ッ ク せ よ . と の プ 
ログ ラム は i を 1 か ら 10 まで と し , x に その 和 を 求め る も の で す . 


FOR ji = 1 TO 10 
92 王 腕 ま 人 

NEXT i 

PRINT x 

END 











【 解 説 】 〇 ウォ ッ チ 機能 で 変数 の 値 を チェ ッ ク し ます . 
ウォ ッ チ 機能 は 指定 し た 変数 や 式 の 値 を チェ ッ ク す る も の で す - 
デバ ッ グ メニ ュー を 選択 し ます . 
?A/ ウ ォ ッ チ ” を 選び ます . 次 の 画面 と な り ま す - 
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EE 


| Ver.4.5 
A/ ウ ォ ッ チ の 追加 


く < 確認 > < 取消 > < H/ ヘ ルプ > 





(①⑥① ウォ ッ チ すなわち チェ ッ ク を する 変数 名 を か きま す . 
⑤ を する と 次 図 の よう に ウォ ッ チ する 1i が 左上 部 に 表示 され ます . 
RRR-2.BAS is 


RRR-2 .BAS 
FOR ji = 1 TO 10 
AN 計 : 肖 中 = 
NEXT i 
PRINT x 
END 


⑥ 同様 の 手順 、 デ バッ グ メ ニュ ー か ら 【, (に よっ て , ウォ ッ チ を する 第 2 の 変数 x が 左上 
部 に 表示 され ます -. 


RRR-2.BAS i: 
RRR-2.BAS x: 


RRR-2 .BAS 
FOR i = 1 TO 10 
メ ミサ 1 ュ 
NEXT i 
PRINT x 
END 


⑦ 実行 し ます . を お し ます . 1 ステ ッ プ ずつ 進み ます . まず 変数 ふ +, * と も る 0 で すか ら 次 図 
の よう に , ii * の 値 と し て 0 が 表示 され ます . "FOR i=1 TO 10" が 緑色 に な っ て いま す . 


RRR-2.BAS ji: 護 
RRR-2.BAS x: 
ミミ 文 + ュ 


NEXT i 
PRINT xx 
END 


RRR-2 .BAS 


続い て を お し ます . 1 が 1 と な り ま す -. 


Z の 
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ea 


RRR-2.BAS i: 1 
RRR-2.BAS xi 0 


RRR-2 .BAS 
FOR ji = 1 TO 10 
メ = ヌキ i 
NEXT i 
PRINT x 
END 


⑨) を お し ます . x=x+1 に より x が 1 と な り ま す . 


RRR-2.BAS i: 1 
RRR-2.BAS x: 1 

HRRR-2 .BAS 
FOR ji = 1 TO 10 
メ ミミ + ュ 
NEXT i 
PRINT x 
END 


⑩ を お し ます . "x=x+1" が 緑色 と な り 1 ふ が 2 と な り ま す . 


RRR-2.BAS i: 2 
RRR-2.BAS : 1 

RRR-2 .BAS 
FOR _i = 1 TO 10 


NEXT i 
PRINT x 
END 
⑪ を お し ます . "NEXT 3" が 緑色 と な り x は 1+2 の 結果 の 3 と な り ま す . 


RRR-2.BAS i: 2 
RRR-2.BAS x: 調 








RRR-2.BAS 
FOR i = 1 TO 10 
X = メ + i 
PRINT x 
END 
⑫ と の くり 返し で 1 が 10.、*x が 55 と な り ま す . 
RRR-2.BAS i: 
RRR-2.BAS : 
RRR-2 .BAS 
FOR ji = 1 TO 10 
区 三 染 や お # 
PRINT x 
END 


⑬ 次 K を お す と "ERINT x" が 緑色 と な り 1 が 11.x が 55 となり ます . 


RRR-2.BAS i: 
RRR-2.BAS X: 


RRR-2 .BAS 
FOR i = 1 TO 10 
! 所 蘭 ま 科 
NEXT i 
END 


⑬ を お す と "END" が 緑色 と な り , さら (に 【[f・8] を お す と "END" が 白 と な っ て 終了 で す . 
⑯ バー ジョ ン 4.5 で は 1/ 簡 易 ウ ォ ッ チ が 設け られ まし た . ウォ ッ チ する 式 に カー ソル を お き , デ 
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バッ グ メ ニュ ー か ら 1/ 簡 易 ウ ォ ッ チ を 選ぶ か , また は + [f・9) で ウォ ッ チ 対象 を 決め ら 
れ ま す . 





ーー トーー ツ ーー デー デー ニー 





【 例題 56】 ウォ ッ チ を 設定 し て トレ ー ス の 自動 実行 
【 例 題 556】 の プロ グラ ム と i と を ウォ ッ チ KK 設定 し て 自動 トレ ー ス せよ . 











【 解 説 】 〇 ウォ ッ チ を 設け て 自動 トレ ー ス を し ます . 

① 【 例 題 55】 と 同じ 手順 で 1 と x の ウォ ッ チ を 設定 し ます . 

②③ 次 に 【 例 題 53】 の 手順 で トレ ー ス を 設定 し ます 

③ を お し ます . 1 と の 値 を 順に 表示 し な が ら ト レー ス を 実行 し て いき ます . 





【 例題 57】 ウォ ッ チ の 削除 
【 例 題 56】 の よう に 1 と x を ウォ ッ チ し て 自動 トレ ー ス し た 後 , 1 の ウォ ッ チ を 削除 せよ 











【 解 説 】 〇 ウォ ッ チ の 削除 を し ます . 

① 【 例 題 56】 の 手順 で 3 と x を ウォ ッ チ に 設定 し て 自動 トレ ー ス し ます . 

⑬ デバ ッ グ メニ ュー を 選び ます . 

③ D/ ウ ォ ッ チ の 削除 を 選び ます . 次 の 画面 と な り , ウォ ッ チ を 削除 する 変数 名 が リス ト ア ッ プ され 
ます . 


[Ver.4.5] 
RRR-2 .BAS 


p/ ウ ォ ッ チ の 削除 
削除 する 式 を 選択 し て くだ さい 


< 確認 > < 取消 > <H/ ヘ ルプ > 
[ Ver.4.2 ] 
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④ 矢印 キー を 使っ て RRR-2.BAS 1i:( に カー ソル を 移し し ます . 1 が ウォ ッ チ か ら 除 か れ ま す . 
_RRR-2.BAS X ミ 


FOR i TO 10 
メ + ュ 

NEXT i 

PRINT 

END 


RRR-2 .BAS 


1 
メ 





【 例題 583】 条件 式 を 設定 し て トレ ー ス (ウォ ッ チ ポイ ント ) 
【 例 題 55】 の プロ グラ ム を i=5 まで 自動 トレ ー ス で x を ウォ ッ チ し , 次 に 1=8 まで を 自 
動 ト レー ス で ウォ ッ チ せよ . 








【 解 説 】 〇 条件 式 を 設定 し て , 真 に な る まで トレ ー ス し ます . 
① 条件 式 を 設定 し て , 式 が 真 に な る まで トレ ー ス し ます . こと これ を ウォ ッ チ ポイ ント と 呼び ます 
2 【 例 題 55】 の 手順 で * を ウォ ッ チ K 設 定 し ます . 
③ 【 例 題 53】 の 手順 で 自動 トレ ー ス を 設定 し ます 
〈④ デバ ッ グ メニ ュー を 選び , "W/ ウ ォ ッ チ ポ イン ト " を 選び ます . 次 の 画面 と な り ま す 


[ Ver.4.5 
w/ ウ ォ ッ チ ポ イン ト 


< 確認 > < 取消 > <H/ ヘ ルプ > 


[ Ver.4.2] 


F/ フ ァイル E/ 編 集 V/ 表 示 S/ 検 索 R/ 実 行 D/ 唱 | c/ 関 数 H/ へ ルフ " (f・1 ) 
RRR-2.BAS x: 


RRR-2 .BAS 


FOR 


NEX 
PRI 
END 





確 認 取消 
⑤ 条件 は 1=5 まで 実行 し ます か ら 1=5 と 記入 し ます . 
⑥ し ます . 条件 式 が 左上 に 表示 され ます . 現在 は i=5 で は あり ませ ん か ら <TFALSE> ( 偽 ) と 


表示 され て いま す . 
RRR-2.BAS x: 


RRR-2.BAS ij = 5: < 調 還 5 呈 > 


RRR-2 .BAS 
FOR ji = 1 TO 10 
慌 (=) 区 き 
NEXT i 
PRINT 
END 
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⑦ と れ で 準備 は 完了 し まし た の で , また は : 中 10 また は で 実行 し ます . 今回 は 
を お し まず 
トレ ー ス が 行わ れ , i=5 と な る と 画面 左上 の 〈FALSE) が <〈TRUE) (か わり 1 が 5 に な っ た と 
と を 示し ます . と の と き の * の 値 は 10 で す . また 1=5 の と き の テ =x+1 は 行わ れ て いま せん . 


RRR-2.BAS x: 10 
RRR-2.BAS ji = 5: <TRUE> 


RRR-2 .BAS 
FOR ij = 1 TO 10 
先 / 室 関 : 生 を 
NEXT i 
PRINT x 
END 


⑧ 続い て i=8 まで 実行 する $ ぉ る の と し ます . デバ ッ グ メニ ュー を 選び , "W/ ウ ォ ッ チ ポ イン ト " を 選 


び ま す . 1=8 品 と し ます . 


RRR-2.BAS x: 10 を し た と と ろ 
RRR-2.BAS i = 5: 
RRR-2.BAS ji = 8: 
RRR-2 .BAS 

FOR i = 1 TO 10 

人 
NEXT i 
PRINT x 
END 


⑲ [f・5] で トレ ー ス を 再開 し ます . 1=8 と な る と i=8 が 〈TRUE〉 と な り 停 止 し ます . x の 値 は 
28 で す . =8 の と き の x=x+1 は まだ 実行 され て いま せん 


RRR-2.BAS x: 28 


RRR-2.BAS i = 5: <FALSE> 
RRR-2.BAS ji = 8: 
RRR-2 .BAS 

FOR ij = 1 TO 10 

メニ メキ i 
NEXT i 
PRINT x 
END 


⑩ を 再度 お し ます . 実行 が 継続 され x は 55、 i=11 と な っ て , 終了 し ます . た だ し , i の 値 
は ウォ ッ チ し て いま せん か ら 表 示さ れ ま せん . 
RRR-2.BAS x: 55 


RRR-2.BAS ij = 5: <FALSE> 
RRR-2.BAS i = 8: ESE5 





RRR-2 .BAS 
FOR i 





【 例題 59】 ウォ ッ チ の 削除 
【 例題 58】 の ウォ ッ チ を 全部 削除 せよ 











【 解 説 】 〇 ウォ ッ チ を 全部 削除 し ます . 
① 【 例 題 55】 の 手順 で ウォ ッ チ を 設け , 自動 トレ ー ス を し ます . 
⑨ デバ ッ グ メニ ュー を 選び ます . 

7Z プ 
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ーー ーー 





= デー ミー 


③ " エ / 全 ウォ ッ チ 削除 "を 選び ます . 全 ウ ォ ッ チ が 削除 され ます -. 





【 例 題 00】 ブ プレー クボ イント 
【 例題 55】 の プロ グラ ム を x を ウォ ッ チ し て 実行 せよ . た だ し , *=x+1 の ステ ー トメ ント 
(に ブレ ー ク ポイ ント を お き , その ステ ー ト メン ト を 実行 する と き 停 止 す る も ゃ もの と する . 











【 解 説 】 〇 ブレ ー ク ポイ ント を 設け て プロ グラ ム を 1 度 停止 し ます . 

① ブレ ー ク ポイ ント は プロ グラ ム 中 の ステ ー ト メン ト 行 を 指定 し て , その 行 を 実行 する と き 一 度 プ ロ 
グラ ム を 停止 させ ます -. 変数 を ウォ ッ チ に 設定 すれ ば プロ グラ ム が 停止 し た と と ろ で の 変数 の 値 を 
チェ ッ ク で きま す . 

②③ 【 例 題 55】 の 手順 で 変数 x を ウォ ッ チ に 設定 し ます . 

⑬③ カー ソル を x=x+1i の 行 へ お きま す . 

④ と と で キー を お し ます . と の 行 が 赤く な り ま す . と れ は ブレ ー ク ポイ ント が 設定 され た と 
と を 示し ます . と れ は デバ ッ グ メニ ュー か ら "B/ ブ レー ク ポ イン ト " を 選ん で $ 同 じ で す 
プレ ー ク ポイ ント は カー ソル の ある 行 に 設け ます . ブレ ー ク ポイ ント は 複数 の 行 に 設け る と と が で 
きま すか ら , カー ソル を 移動 し て を お すか , デバ ッ グ メニ ュー か ら 指 定 し ます . 

⑧ [5 で 実行 し ます . *=x+i の 行 へ くる と 一 度 停止 し ます . その 時 の の 値 を チェ ッ ク す る て 
と が で きま す . 継続 は [f・5] を お し ます 


RRR-2.BAS x: 誠 5 


RRR-2 .BAS 
FOR ji = 1 TO 10 
メ = ミニ メ キャ i 
NEXT i 
PRINT x 
END 


最後 は * の 値 が 55 と な っ て 終了 し ます . 





【 例題 61】 プレ ー ク ポイ ント の 解除 
【 例 題 60】 で つく っ た ブレ ー ク ポイ ント を すべ て 解除 せよ 








【 解 説 】 〇 ③ ブレ ー ク ポイ ント を すべ て 解除 し ます . 

① 【 例 題 60】 の ブレーク ポ イン ト を 利用 し ます . と の 例 で は ブレ ー ク ポイ ント は 1 つ で す が 複 数 個 
あっ て も ゃ 同じ で す . 

②③ デバ ッ グ メニ ュー を 選び ます . "C/ 全 ブ プレー ク ポ イン ト の 削除 ” (バー ジョ ン 4.5), ”"C/ 全 ブレ 
ー ク ポイ ント の 解放 "(バー ジョ ン 4.2) を 選び ます . すべ て の プレ ー ク ポイ ント が 解放 され ます . 

③ 1 行 の 場合 は , その 行 へ カー ソル を お き を お し ます . 
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【 例題 62】 ヒス トリ 

次 の プロ グラ ム を 実行 し , 終了 し た ら , 1 ステ ー ト メン ト ず つ 逆 に さか の ぼっ て プロ グラ ム 
の 流れ を チェ ッ ク せ よ . な お , と の プロ グラ ム は 乱数 を 10 個 つ くっ て , 0.8 以下 の と き x1., 
0.3 を こえ 0.6 以下 の と き x2, それ 以外 は x3 に その 出現 回 数 を 数 える も の で す . 


FOR i 1 TO 10 
に 4 RND(5 ) 
IF x <= .3 THEN 
メ ] = X] + 1 
ELSE 
IF x <= .6 THEN 
X2 = 2 + 1 
ELSE 
X3 = XX3 + 1 
END IF 
END IF 
NEXT ji 
PRINT x1 
PRINT x2 
PRINT x3 
END 











【 解 説 】 〇 ヒス トリ は 最大 20 まで の ステ ッ プ の 流れ を 記憶 し ます 

(① ヒス トリ は , 最新 の 20 ステ ッ プ を 記 境 し , 逆 に さか の ぼっ て ステ ッ プ を 確認 し た り . さか の ぼっ 
て か ら , また 前 へ 進め る こと が で きま す . 
エラ ー が お き て プロ グラ ム が 止ま っ た と き , 直前 の ステ ッ プ を 確認 する の に 大 変 便利 で す . 

⑱ デバ ッ グ メニ ュー を 選び ます . 

⑬ "HL/ ヒ スト リ "を 選び ます . 元 の 画面 C も どり ます . デバ ッ グ メニ ュー を 選ぶ と "H/ ヒ スト リ "” の 
前 に "* ネ "(バー ジョ ン 4.5)。 "> "(バー ジョ ン 4.2) が つい て いて , ヒス トリ が 選択 され て いる と 
と を 示し ます . 再度 "H/ ヒ スト リ ” を 選ぶ と ヒス トリ 機能 は 解除 され ます . 

④ ば ・5】 で プロ グラ ム を 実行 し ます . プロ グラ ム は 実行 され て , "END" CC カー ソル が きま す . こと 
で キー と 8J) キー を お す と プロ グラ ム の ステ ッ プ を 逆 に さか の ぼっ て いき ます . カー 
ソル が "PRINT x2" つ "PRTNT x2" っ "PRTNT x1"… と さか の ぼり ます . 途中 で キー 
と 中 10)0 キー を お す と , 元 の 流れ で プロ グラ ム を 進め て いき ます . 





【 例題 63】 次 の ステ ー ト メン ト 
【 例 題 62】 の プロ グラ ム を 使っ て "x8=x5+1" に ブレ ー ク ポイ ント を お き 実 行 し , 次 に カー 
ソル を PRINT x1 に お いて 次 の ステ ー ト メン ト を 設定 し て プロ グラ ム を 継続 させ よ . 








【 解 説 】 〇 次 の ステ ー ト メン ト を 設定 し ます . 
① 次 の ステ ー ト メン ト は GOTO 文 の よう な も の で , 途中 の 実行 を 省略 し て , カー ソル の ある ステ ー 
トメ ント へ 実行 を 移し ます . 
カー ソル を "x85=x5+1”" に お き キー で ブレ ー ク ポイ ント を お きま す . 
⑥) で 実行 し ます . x5=x5+1 の 実行 で 止ま り ます . x5=x3+1 は まだ 実行 し て いま せん . 
2Z@ 





④ カー ソル を "PRINT x1" に お きま す . 
デバ ッ グ メニ ュー を 選び , "8/ 次 の ステ ー ト メン ト の 設定 "(バー ジョ ン 4・5), "8/ カ レン トス 
テー トメ ント の 設定 "(バー ジョ ン 4・2) を 選び ます . 次 の ステ ー ト メン ト が "PRINT x1" と な り 


ます . 
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ーー テー ツー ュー ニー ーー テー デー テー や マー ニー ニー=、 ニ ニニ ーー ニー ーー て ーーaa0ec で ooo ので aa 


⑥ [ 重 5) を お し ます . x8=x8+1 を 実行 し て , PRINT x1 に 分岐 し , PRINT x2, PRTNT x9 を 
実行 し て 終了 し ます . 結果 は x2 の み 1 で す . 





【 結 果 】 
Q *1 の 値 
0 * る 2 の 値 
1 x3 の 値 
【 例題 64】 カー ソル の ある 行 まで 実行 


【 例題 64】 の プロ グラ ム を 使い , ウォ ッ チ KC x1, x2, x3 を 指定 し て , カー ソル を x2=x 
2+1 に お き , x2=x2+1 に プロ グラ ム の 流れ が くる まで 実行 する と と を くり 返し て , プロ グラ 
ム を 実行 せよ . 








【 解 説 】 ⑨ キー は カー ソル の ある 行 ま で プロ グラ ム を 実行 し ます . 
① 【 例 題 62】 の 要領 で x1、 x2, x32 を ウォ ッ チ の 対象 と し ます . また カー ソル を "x2=x2+1” の 
先頭 の x に お きま す . 次 図 と な り ま す . 





RRR-3.BAS 
FOR ji = 1 TO 10 
メ = RND(5) 
IF x <= .3 THEN 
X] = 1] + 1 
ELSE 
IF x <= .6 THEN 
2 = 2 + 1 
ELSE 
X3 = X3 + 1 
END IF 
END IF 
NEXT i 
PRINT x1 
PRINT x2 
PRINT x3 


⑨ [7J キー を お し ます . プロ グラ ム の 流れ が x2=x2+1 の 実行 に きた と と ろ で 止ま り ま す . x%= 
x2+1 は まだ 実行 され て いま せん . 最初 の 乱数 が 0.6 を こえ て いる た め x3=x5+1 を 実行 し て いる 
の で 変数 x ほ 2 の み 1 と な っ て いま す . 


RRR-3.BAS x1: 
RRR-3.BAS x2: 0 
RRR-3.BAS x3: 抽 
RRR-3.BAS 
FOR ji = 1 TO 10 
* = RND(5) 
IF x <= .3 THEN 
守 区 は ませ 
ELSE 
IF x <= .6 THEN 
X2 = X2 + 1 


ZZ 
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ELSE 
X3 = 3 + 1 
END IF 
END IF 

NEXT i 
PRINT x1 
PRINT x2 
PRINT x3 


③ 続い て を お し ます . 再び x2=x2+1 の 実行 に き て プロ グラ ム が 止ま り ま す . 2 つつ 目 の 乱数 
は 0.5 を と え を 0.6 以下 の た め x2 も 1 と な っ て いま す . 





RRR-3.BAS xl: 0 
RRR-3.BAS x2: 還 
RRR-3.BAS x3: 1 
RRR-3 .BAS 
FOR i 


ELSE 
IF x <= .6 THEN 
X2 = X2 + 1 
ELSE 
X3 = X3 + 1 
END IF 
END IF 
NEXT i 
PRINT x1 
PRINT x2 
PRINT x3 


(④ 再び f・7】 を お し ます . x2=x2+1 の 実行 に き て 止ま り ま す . 8 回目 は 乱数 は 0.8 を と え 0.6 
以下 の た め x2 は 2。 4 回 目 は 0.3 以下 の た め x1 は 1 と な っ て いま す . 5 回 目 の 値 が 0.2 を と を 
0.6 以下 の た め x2=x2+1 の ステ ー ト メン ト で 止ま っ て いま す . 


RRR-3.BAS x1: 1 
RRR-3.BAS x2: 調 
RRR-3.BAS x3: 1 
RRR-3.BAS 
FOR i 1 TO 10 
X = RND(5) 
IF x <= .3 THEN 
X1 = 1 + 1 


IF x <= .6 THEN 
2 = X2 + 1 


X3 = 3 + 1 
END IF 
END IF 
NEXT i 
PRINT x1 
PRINT x2 
PRINT x3 


⑤ 再度 を お し ます . x1 は 2 x2 は 5 x9 は 5 と な っ て 終了 し ます . すなわち , 5 回目 
2=x2+1 が 実行 され る と 再び とこ の ステ ー ト メン ト を 通る と と は あり ませ ん の で , プロ グラ ム の 終了 
まで 進み ます . 





Z@ 


ーー ュー っ = 


RRR-3.BAS 1 : 
RRR-3.BAS X2: 


4 
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RRR-3.BAS x3: 語 
RRR-3.BAS 
FOR i = 1 TO 10 
x = RND(5) 
IF x <= .3 THEN 
X1 = X] + 1 
ELSE 
IF x <= .6 THEN 
2 = X2 + 1 
ELSE 
x3 = x3 + 1 
END IF 
END IF 
NEXT ji 
PRINT x1 
PRINT x2 
PRINT x3 
【 例 題 65】 関 数 


次 の プロ グラ ム を 実行 し , STOP の つど , 呼び 出し 関係 を 確認 せよ . プロ グラ ム は 数 x% を 人 入 
力 し , サブ ルー チン a1 を 呼ん で 1 か ら x% ま で の 和 を 求め 、 メ イン ルー チン に ゃ どり, 次 に 
ファ ンク ショ ン a2 を 呼ん で 1 か ら x% ま で の 階 乗 を 求め る も る の で ある . プロ グラ ム 名 は RRR- 


6.BAS と する . 


DECLARE SUB a1 
DECLARE FUNCTION a2 
INPUT x% 

STOP 

CALL a1(X を 。 XX 名 ) 
PRINT xx% 

PRINT a2(x%%) 

END 


SUB a1 (2%。 

zz% = 0 

FOR i = 1 TO z%% 
22 を = ZZ を + 

NEXT i 

STOP 

END SUB 


ZZ 名 ) 


FUNCTION a2 (z%) 

Y ミユ 

FOR i = z% TO 1 STEP -1 
Y=Y※* 1 

NEXT i 

832 = ア 

STOP 

END FUNCTION 


5 を 入力 の 例 


(z AS INTEGER, 
(z AS INTEGER ) 


zz AS INTEGER ) 








【 解 説 】 


〇 関数 メニ ュー で 関数 の 呼び 出し 関係 を チェ ッ ク し ます 


③④ で プロ グラ ム を 実行 し ます . x%C 値 を 入力 し た 後 , 4 行 目 の STOP で プロ グラ ム が 中 断 し 
ます . 次 図 と な り , 現在 RRR-6.BAS の プロ グラ ム を 実行 し て いる こと が わか り ま す . 
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C/ 関 数 


mmo テー テロ 


M/RRR-6 .BAS 
③ 続い て を お し , プロ グラ ム を 続行 し ます . サブ ルー チン a1 の STOP で 中 断 し ます -. 
と と で 関数 メニ ュー を 選び ます . 下図 と な り ま す . 
RRR-6.BAS か ら 呼 び 出 され た a1 を 実行 し て いる こと が わか り ま す . 


C/ 関 数 


a1 


M/RRR-6 . BAS 


③ で プロ グラ ム を 続行 し ます . 次 は ファ ンク ショ ン a2 の STOP で 中 断 し ます . と と で 関数 
メニ ュー を 選び ます . 下図 と な り , RRR-6 .BAS か ら 呼 び 出 され た a2 を 実行 中 で ある と と が わか 


り ま す . 
で / 関 数 


由 








【 例 題 66】 関 数 

下 の プ ログ ラム を 実行 し サブ ルー チン の 呼び 出し 関係 を 確認 せよ . た だ し , と の プロ グラ 
ム は メイ ン ル ー チ ン で x*% を 入力 し , サブ ルー チン a1 を 呼び 出し て 1 か ら x% ま で の 和 を 求め 
次 に サブ ルー チン a2 を 呼び 出し て ,x% の 階 乗 を 求め る る の で ある . プロ グラ ム 名 は RRR-7. 


BAS と する . 


DECLARE SUB a]1 (2 を, zz を を, Zzz を ) 

DECLARE SUB a2 (z AS INTEGER, zz AS INTEGER)〉 
INPUT x% を 

STOP 

CALL a1(X を 。 XX を 。 XX メメ を ) 

PRINT xx% 

PRINT xxx を 

END 


SUB a1 (z, zz を 。 ZZ2%) 

ZZ を = 

FOR ji = 1 TO z を 
を 22 i 


トー】 


CALL a2(z を 。 yy を ) 
222 を = ツア ツア 
END SUB 


SUB a2 (y%,。 yy を ) 

2 = 1 

FOR i = y% TO 1 STEP -1 
2 を = Z を * ュ 


NEXT ji 
アア を = ーz 負 
STOP 

END SUB 





【 解 説 】 〇 関数 メニ ュー で サブ ルー チン の 呼び 出し 関係 を 確認 し ます . 


に // 
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① で プロ グラ ム を 実行 し ます . メイ ン ル ー チ ン の 4 行 目 の STOP で プロ グラ ム が 中 断 し ます . 
と と で 関数 メニ ュー を 選び ます . 下図 と な り , プロ グラ ム RRR-7 .BAS が 実行 中 で ある と と が わか 
り ま す . 

で 7 関数 . 
NM/RRR=7。BAS 

②③ 次 C [ff・5】 を お し て , プロ グラ ム を 続行 し ます . 次 に サブ ルー チン &1 の STOP で 中 断 し ます . 
と こと ぞ 関数 メニ ュー を 選び ます . 次 の 画面 と な り ま す . RRR-7.BAS か ら 呼 び 出 され た a1 を 実行 
中 で ある と と が わか り ま す . 

で / 関 数 


六 rrps 


③ で プロ グラ ム を 続行 し ます . サブ ルー チン a2 の 中 の STOP で 中 断 し ます . と と で 関数 メ 
ニュ ー を 選び ます . 次 の 画面 と な り ま す . a1 か ら 呼 び 出 され た a2 を 実行 中 で ある こと が わか り ま 


す . 
で / 剛 数 
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%, !。 $, &。 #。+。 一 。 * ネ 。 /。 八 。 区 MOD, DEF INT/SNG/LNG/DBL 





【 例 題 1】 変数 の 型 
整数 , 長 整 数 , 単 精度 浮動 小数 点数 , 倍 精度 浮動 小数 点数 、 文字 を 1 つ ず つ 入 力 し て 表示 する 
プロ ダグ ダラム を つくれ. 











【 解 説 】 ⑥ 変数 の 型 を 学び ます . 
① Quick BASTC で は C 言語 や FORTRAN の よう KC 変 数 の 型 を 明確 に し ます . 
③ 変数 名 に % が つく と 整数 型 で -32.768~+32、767 の 値 を 扱い ます . 
③⑬ 変数 名 に & が つく と 長 整 数 型 で -2, 147、483.648~+2,147,483.647 の 値 を 扱い ます . 
④ 変数 名 に ! が つく と 単 精度 浮動 小数 点 で -3.402823E+38 か ら -1.175494E-28 と +1.1754 
94B-38 か ら +5.402822E+38 まで の 値 を 扱い ます . 7 桁 が 有効 で す . 
⑧⑤ 変数 名 に C* が つく と 倍 精度 浮動 小数 点 で -1 .797693134862316D+308 か ら -2.225073858 
507201D-208 まで と +2.225073858507201D-308 か ら -1.797695134862516D+308 の 
値 を 扱い ます . 15 また は 16 桁 が 有効 で す . 
⑥ 変数 名 に $ が つく と 文字 型 で 文字 列 を 扱い ます . 最大 32.767 文字 まで 代入 で きま す . 
⑦ 変数 名 が 同じ で も 型 官 言 文字 が 異な る と 別 変数 と し て 扱わ れ ま す . た と えば , a% と a# は 別 の 変数 
と し て 使え ます . 
⑬ a&%=156 に よっ て 変数 a%(C 156 が 代 人 され ます . a%=156 .5 の よう CC 異な る 型 を 代入 する と & 
% に は % で 決め られ た 型 す な わ ち と の 場合 は 整数 と し て 156 を 代入 し ます . 
⑲⑨ 数 値 変数 に 文字 を 代入 する と と は で きま せん . また , 逆 に 文字 変数 に 数 値 を 代入 で きま せん . た だ 
し , 数 値 を "” で 囲ん で 代入 すれ ば それ は 数 値 で は な く 文 字 と し て 代入 され ます . 


正しい 例 届 
a%=156 a%= "ABC” 
a&%=ABC a%=ABC…… ABC が 変数 な ら そ の 値 を a%C 代 入 する 


ABC が 文字 な ら 誤り 


82 


1 章 変数 の 型 ・ 四 則 演 算 ・ 累 乗 ・ 整 数 除算 ・ 剰 余 


a$="156” a=156…… 156 が 数 値 な ら &$=156 は 誤り 
a&$="156" と する と 156( い ち ど ろ く ) の 
数 字 が a$ に 代入 され る . 


⑩ PRINT 変数 名 で 変数 の 値 が 表示 され ます . 』 は 改行 を すず に その まま 続け て 表示 され ます . 文 の 
最後 に が な いと き は 改行 され ます . 
⑪ 1LPRINT で は EH 刷 され ます . 





【 プ ログ ラム 例 】 
a% = 156 a%, a&、 a!、a#、 a* に 値 を 代 人 
a& = 123456789 
a! = 1213.456 


a# = 123456.78945# 

a$ = "Quick Basic" 

PRINT a%: a&i a!: a#: a$ 
END 





表示 


【 結 果 】 


156 123456789 1213.156 123456.78945 Quick Basic 








【 例 題 2】 長 整数 型 変数 の 和 
長 間 数 型 変数 && を 1,234.567 と し , b& を 988,777.666 と し て 和 を 求め て 表示 する プ 
ログ ラム を つく れ . 





【 解 説 】 〇 和 は + で 表わし ます . 

① 和 は + で す . PRINT 文 の 中 で &&+b& の よう に 表わす と と が で きま す . a& と b& の 和 が 表示 され 
ます . 

③⑨ o&=a&+b& の よう に 結果 を 左辺 の 変数 に 代 人 し , c& を 表示 する とこ と も で きま す . 

③ PRINT 文 の 中 の ”” の 中 の 文字 は その まま 表示 され ます . 

④ は 改行 を せ ず に 続け て 表示 され ます . 











【 プ ログ ラム 例 】 
a& = 1234567 [ 件 の 代 人 
b& = 988777666 
PRINT a&: "iD ia&+b& 和 を 表示 
END 

【 結 果 】 


1234567 + 988777666 = 990012233 








【 例 題 3】 倍 精 度 浮動 小数 点数 の 積 
52.52145698 と 1.4585424 の 積 を 求め る プロ グラ ム を つく れ . 








【 解 説 】 ⑥ 倍 精度 浮動 小数 点数 の 積 を 求め ます . 


に の 】 


上 l プロ グラ ム 編 





① 52.322145698 を a#, 1.4585424 を b#C 代 入 し ます . 積 は * で 示し ます . 下 の 式 で a# と b# 
の 積 を c#(C 代 入 し ます . 














C# ニ 8# キ b# 
③ 四則 演算 は +, -, *。 / で す . 
【 プ ログ ラム 例 】 
af# = 52. 0 a# と b#C 代 人 
b# = 1.4585424# 
C# = a#*【# a# と b# を co#KC 代 入 
PRINT a#: "まま : bf ミリ | cf 結果 の 表示 
END 
【 結 果 】 
52.32145698 * 1.1585424 = 76.31306343510596 
【 例 題 4】 累 乗 


3 の 8 乗 の 値 を 求め る プロ グラ ム を つく れ . 








【 解 説 】 〇 累乗 は ^ で 求め ます . 

① x% は 整数 型 変数 で す . *% を 3 と し ます . 

②③ b%=x%~8 で は x% の 値 の 8 乗 の 値 を b%C 代 人 し ます . ~ は 累乗 を 示し ます . と の 例 で は 8 乗 で 
す . 5・3 乗 の よう に 浮動 小数 点数 も 使え ます . た と えば , b!=a!~oc! で す . 

③ D&=x%"8 も 使え ます . x% ま た は 8 の 部 分 が 大 きく な る と b& の 方 が オー バー フロ ー し な どい 場合 
が 多く な り ま す . 


【 ブ プロ グラ ム 例 】 
xX% = 3 
b% = x% ~ 8 ーー 一 3 を b% へ 代入 
PRINT x%: "8=": b% 一 一 表示 
END 
【 結 果 】 
3 ^ 8= 6561 





【 例 題 5】 整数 除算 と 剰余 \、 MOD 
98765589-5476555 の 商 と 剰 倒 を 求め る プロ グラ ム を つく れ . 











【 解 説 】 〇 整数 除算 と 剰 全 を 求め ます . 
① oc&=a& 洗 b& は 長束 数 a& を -b& の 商 を c& へ 代 人 人 し ます . 
② ぎ は 整数 除算 で す . 16\ ぎ 5 は 5 で す . 16.7 ま 8.2 は 17 ま 5 と 同じ で 5 です. 小数 点 以下 は 四 捨 五 
入 さ れ て か ら 計 算 さ れ ま す . 
③ d&=a& MOD b& で は a&-b& の 剰余 を d& へ 代入 し ます . MOD は 整数 除算 の 剰 全 で す - 
に と 4 
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SE 

















【 プ ログ ラム 例 】 
a& = 98765589 T a&、 b& に 値 を 代入 
D& = 5476555 
c& =a&\YDb& a& 壮 b& を 求め て oc& へ 代入 
d& = a& MOD D& a& 壮 b& の 剰余 を d& へ 代入 
PRINT a&i "/jD&I ミリ jc&i "カリ ザ ェ d& 結果 の 表示 
END 
【 結 果 】 
98765589 / 5476555 = 18 了 マ リ 187599 





【 例 題 6】 型 の 異な る 変数 型 へ 結果 を 代入 
589 を a%、 246 を b% と し て a%/b% を 求め て ck 代入 し て , 表示 する プロ グラ ム を つく れ . 











【 解 説 】 〇 整数 型 ど うし の 割り 算 の 結果 を 倍 精 度 浮動 小数 点 型 変数 に 代 人 し ます . 
① a% を 589, b% を 246 と し て a%/c% を 求め ます . と の と き 計 算 結果 を c%C 代 人 する と oc% は 2 
で す . oc#C 代 入 す る と 倍 精 度 浮動 小数 点 型 の 値 る.294309043884277 が 代入 され ます . 計算 結 
果 は 代入 され る 変数 の 型 に よっ て 決ま り ま す . 
&%=589、 b%=246 と し た と き の 値 








整数 型 c%=a%/b% 2 
長 整 数 c&=a%/b% 2 
単 精度 浮動 小数 点数 c!=a%/b% 2.294309 
倍 精度 浮動 小数 点数 Cc#=a%/b% 2.394809043884277 
【 プ ログ ラム 例 】 
2% = 589 a%, D% に 値 を 代 人 
b% = 246 
c# = a% / b%ー 一 一 一 ーーーーーーーー 8a%/b% を o#C 代 入 
PRINT a%: "/j bb ミリ | ま 結果 の 表示 
END 
【 結 果 】 
589 / 246 = 2.394309043884277 





【 例 題 7】 変数 の 型 宣言 
変数 A を 整数 型 変数 B を 長 整 数 型 , 変数 C を 単 精度 浮動 小数 点数 型 , 変数 D を 倍 精 度 浮動 
小数 点数 型 , 変数 を 文字 型 と 宜 言 し て , a~e を 下 の 値 と し て 表示 する プロ グラ ム を つく れ . 
A 168、B 2583296, C 15.589.D 128456789 
EE アイ ウエ オ 











【 解 説 】 〇 変数 の 型 宜 言 を し ます . 
① DEFINT A は 変数 A (大 文字 小文字 の 区 別 は な いか ら ぁ ゃ 同じ ) を INT 型 , 整数 型 と 宜 計 し ま 
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す . 実際 に は 変数 4 の み で な く A で 始ま る すべ て の 変数 を 整数 型 と し ます . し た が っ て , 今後 &% と 
せ ず a の み で 整数 型 を 示し ます . 

DEFLNG B は 同様 に 変数 B を LNG 型 、 長 整数 型 と し ます . 

DEFSNG C は 同様 に 変数 C を SNG 型 , 単 精度 浮動 小数 点数 型 と し ます . 

DEFDBL D は 同様 に 変数 D を DBt 型 、 倍 精度 浮動 小数 点数 型 と し ます 

DEFSTR は 同様 に 変数 を STR 型 , 文字 型 と し ます . 
【 プ ログ ラム 例 】 


DEFINT A AE の 型 宜 言 
DEFLNG B 

DEFSNG C 

DEFDBL D 

DEFSTRE 

168 

2583296 

15.389 
123456.789# 

7 人 9 エボ 

PRINT a: b: ci di e 
END 


【 結 果 】 


168 2583296 15.389 123456.789 アイ ウエ オ 


@@@@ 


ae C 値 の 代入 


の 
中 目 目 日 








表示 





【 例 題 8】 文字 型 を 範囲 で 指定 と 文字 変数 の 和 

AB, C で 始ま る 変数 を 文字 型 と 宜 言 し 、a1anguage を "Miorosoft"、 b1anguage 
を "[LIQuiok co" c1anguage を "| |Quick BASTIC" と し て a1anguage+b1anguage。 
a&1anguage+o]anguage を 表示 する プロ グラ ム を つく れ . 








【 解 説 】 〇 4 から C ま で の 文字 で 始ま る 変数 名 を 文字 型 と し ます . また , 文字 変数 の 和 を 求め 
ます . 
① DEFSTR A-C は A か ら C まで すなわち , A, B,、C で 始ま る 変数 名 を 文字 型 と 定義 し ます . 
②③ し た が っ て , a1anguage、 bl1anguage, ol1anguage は 各々 a, b、c で 始ま っ て いま すか ら 
文字 型 変数 で す -. 
⑬ a1anguage+b1anguage は 文字 変数 の 和 で 各々 の 文字 列 を つなぎ ます . 
【 プ ログ ラム 例 】 





DEFSTR A-C A-C を 文字 型 で 宮 言 
alanguage = "Microsoft" 文字 列 を 代入 
blanguage = "Quick C" 

clanguage = ” Quick Basic" 


PRINT alanguage + 08 表示 . 和 は 文字 列 を つなぐ 
PRINT alanguage: clanguage 
END 
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【 結 果 】 


Microsoft Quick C 
Microsoft Quick Basi で 





【 例 題 9】 配列 の 型 宣言 

配列 a(10 ) を 文字 列 配列 と し て , a&(0)~a(9) に 下 の デ ー タ を 代入 し て , 次 に "T” で 始ま 
る 文字 列 を 表示 する プロ グラ ム を つく れ . 

デー タ : Rome, Washington, Tokyo, London、 HongkOong、 


Chiocago, Taipei、 Paris, Bon、 Mosoow 











【 解 説 】 ⑥ 配列 の 型 官 言 を し ます . 
① 文字 型 配列 は 次 の よう に 宣言 し ます . 配列 a(0)~a(9) が 文字 型 で ある と 宣言 する と と も KC, 各 
文字 列 の 長 さ は 10 文字 と な り ま す . 配列 に つい て は II 編 8 章 で 扱い ます . 


DIM &(10) AS STRING * 10 

配列 宜 言 配列 名 文字 列 と し て 10 文字 の 
a$(10) と 宣言 文字 列 と し て 固定 
$ を つけ る 
必要 は な い 


③ a(0)~a(9) に 文字 列 を 代入 し ます . FOR 文 に よる くり 返し は T 編 5 剖 で 扱い ます . &(0 ) は 
Rome, a(1) は Washington で す が , 各 文 字 列 は 10 文字 で すか ら a(0) は "Rome| | | 
"と な り ま す (は 空白 ) (1) は "Washington" で す . 

③⑬ ASC (文字 ) は 文字 の アス キー コー ド を 示す 値 で す . た と えば , "4A", "Amerioa”" は 先頭 文字 " 
A” の アス キー コー ド 65 で す . 














【 ブ プロ グラ ム 例 】 
DIM a(10) AS STRING * 10 ーーーーーー 各 10 文字 の 文字 列 の 文字 列 配列 a(9 ) を 宮 言 
FORi=0109 a(0)~a(9) に デー タ を 読み 込む 
READ a⑪) 
NEXT i 
FORi=0109 "T" で 始ま る 文字 列 を 表示 
IF ASC(aG)) = 84 THEN PRINT aG) | 
NEXT i 
END 


DATA Rome, Washington, Tokyo, London, Hongkong 
DATA Chicago, Taipei, Paris, Bon, Moscow 


【 結 果 】 


Tokyo 
Taipei 


8Z 
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【 


を 





例題 10】 配列 を 整数 型 で 宣言 

配列 a(10 ) を 整数 型 で 宣言 し , 下 の デ ー タ を 読み 次 に ,、 その 値 を アス キー コー ド と する < 文字 
順に 表示 する プロ グラ ム を つく れ . 

デー 攻 ! 8 鶴 65。 85、 72、 5 78,。 7Y1。 84、 79、 78 








【 解 説 】 ⑥ 配列 を 整数 型 で 宜 言 し ます . 


① 


の 


配列 a(10 ) を 整数 型 で 宜 言 する と き は 次 の よう に し ます . また , その 他 の 型 の 場合 も INTEGER 
部 分 を 変え る だ け で す . 文字 型 に つい て は 【 例 題 9】 で 扱っ て いま す . 配列 に つい て は T 編 8 章 


で 扱い ます . 


の | 


DIM a(10) ASTFTNTEGER.……- 整数 型 で 官 言 
| 第 人 間 全 yuaaraorasass 長 整数 型 で 宮 言 
SINGLE……… 単 精度 浮動 小数 点数 型 で 宜 言 
-D0UBLE……… 音 精度 浮動 小数 点数 型 で 宮 言 
CHR$( 値 ) は その 値 を アス キー コー ド と する 文字 を 持ち ます . た と えば , CHR$(65) は A で す . 


【 プロ グラ ム 例 】 


DIM a(10) AS INTEGER 配列 a(9 ) を 整数 型 で 宣言 


FOR i=0TO9 デー タ の 読み 込み 
READ ai) 

NEXT i 

FORi=0TO9 表示 
PRINT CHR$(a(i) ) : 

NEXT i 


END 
DATA 87.65, 83.72.73.78.71. 84.79, 78 








【 結 果 】 


(1) 


(る ) 


(②③) 
(④) 


(⑤5) 


WASHINGTON 


[演習 問題 





長 整 数 x& を 123456789, y& を 9874563 と し て x&-y& を b& C 代 入 し , 結果 を 表示 す 
る プロ グラ ム を つく れ 。 

a& を 85256987,、 b& を 654865 と し て a&/b& を o& に 求め 結果 を 表示 する プロ グラ ム を 
つく れ . 

(2) と 同じ 式 の 値 を oc# に 求め て 表示 する プロ グラ ム を つく れ . 

a% を 1234。 a! を 128.456. a& を 125456789、 a# を 122.45678912, a$ を "Quio 
k Basio" と し て , 各々 を 表示 する プロ グラ ム を つく れ . 

A と U で 始ま る 変数 を 倍 精度 浮動 小数 点数 型 、R か ら S まで で 始ま る 変数 名 を 単 精度 浮動 小数 
点数 型 と 宜 言 し て , uriage1 を 1986500, uriage2 を 856200, uriage2 を 752500, 





Sg 


ニタ ーー ンー デー ーー ちっ ニキ 
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ーー テーーー= 








arari1 を 350200, arari2 を 97600, arari5 を 102500 と し て , ritsu1 (に uria 
ge1 に 対す る arari1 の 率 , seihin1 に uriage2 に 対す る arari2 の 率 。 seihin2 に 
uriage2 に 対す る arari3 の 率 を 小数 点 第 1 位 ま で 切り す て で 求め る プロ グラ ム を つく れ . 

(6) 25638.9=1965.3 の 整数 除算 を する プロ グラ ム を つく れ . 

(7?) 8892=19 の 商 と 剰余 を 求め る プロ グラ ム を つく れ . 

(8) 3? を 求め る プロ グラ ム を つく れ . 

(9) 整数 x? を 3.5, y! を 2.5 と し て rx'"" を 求め る プロ グラ ム を つく れ . 

(10) 186.3292654#+*5% を 求め 結果 を 単 精度 実数 で 表示 する プロ グラ ム を つく れ . 

(11) 配列 a(10) を 単 精度 実数 型 で 家 言 し 、 次 の 数 値 デ ー タ を 10 個 読 み 込ん で 表示 する プロ グラ 
ム を つく れ . 

ー タ 5j87, 65, 83, 72。 73。 78。 71, 84, 79, 78 





(12) 4A, B, C で 始ま る 変数 名 を 文字 型 と 官 言 し . America, Austria, Britain, Burma, 
Canada, China に 各々 次 の 文字 列 を 代入 し て 表示 する プロ グラ ム を つく れ . 
USA、 Europe, Eng1land, Asia,、 North Amerioa, 
Main1and Chin& 
(13) x, y, 2 で 始ま る 変数 を 整数 型 変数 と 宜 言 し a!=28.29、 b!=11.52, o!=8.76 と し 
て a'*b! の 値 を x Ca!-oc! の 値 を に bY*oc! の 値 を z C 代 入 し て 表示 する プロ グラ ム を 
つく れ . 


[ 解 人 答 」 


(1) 【 プ ログ ラム 例 】 


0 = 123456789 値 の 代入 
= 9874563 

人 X& y・ 差 

PRINT x&: j: yi iD 

END 


【 結 果 】 


123456789 - 9874563 = 113582226 








(2) 【 プ ログ ラム 例 】 
a& 23904 ーー | と b& に 値 を 代入 
654865 


b& 
c& =a&/b& a&/b& を o& に 代入 
PRINT a&: "/j D&G& 結果 の 表示 


END 


【 結 果 】 
85236987 / 654865 = 130 
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(3) 【 プ ログ ラム 例 】 


a& = 85236987 
b& = 654865 
cf =a&/b& 

PRINT a&: "//:j DA "の =": c# 
END 


【 結 果 】 


85236987 / 654865 = 











(4) 【 プ ログ ラム 例 】 





a% = 1234 整数 型 変数 に 値 を 代入 

a! = 123.456 単 精度 型 実数 に 値 を 代 人 
a& = 1213456789 一 一 一 一 長 整数 型 変数 に 値 を 代 人 
af = 123.45678912# 倍 精度 型 実数 に 値 を 代 人 


a$5 = "Quick Basic" 


PRINT a%: a! 表示 
PRINT a&: a# 
PRINT a$ 一 ーー 





END 

【 結 果 】 

1234 123.456 

1213456789 123.45678912 


Quick Basic 


(5) 【 プ ログ ラム 例 】 





文字 型 変数 に 値 を 代 人 人 


Paw キマ ーー ニニン 


a& と b& に 値 を 代入 


a&/b& を c# に 代入 
結果 の 表示 


130.1596313744054 


AU を 倍 精 度 浮動 小数 点数 型 と し て 宣言 





DEFDBL 4, U 





DEFSNG R-S 
1986500 


R、S を 単 精度 実数 と し て 宣言 
ーー 初期 値 の 代入 





uriage1 
uriage2 
uriage3 
araril 
arTari2 
arari3 = 102500 


856200 

752500 
350200 
97600 





ritsu] = INT(araril / uriagel * 1000) / 10 
seihin1 = INT(arari2 / uriage2 * 1000) / 10 
seihin2 = INT(arari3 / uriage3 * 1000) / 10 
PRINT ritsu1: "% 
END 


"seihin1: "% 


【 結 果 】 


17.6 名 11.3 % 13.6 % 


(6) 【 プ ログ ラム 例 】 


PRINT 25638.9 \ 1965.3 一 一 整数 除算 
END 


"seihin2: "% 


率 の 計算 








結果 の 表示 


【 結 果 】 
13 


020 


(8) 


(9) 


(10) 


(11) 





【 プ ログ ラム 例 】 


a% = 3892 

b% = 19 

x1% = a%\b% 商 
x2% = a% MOD b% 一 剰余 
PRINT x1%. x2% 

END 





【 プ ログ ラム 例 】 


a% = 3 
bD%=a% “9 
PRINT b% 
END 





3* を b%C 代 入 


【 プ ログ ラム 例 】 





【 プ ログ ラム 例 】 
x# = 186.3292654# 
xX% = 5 

X! =x*X% 
PRINT x! 

END 


# ォ ネ キメ % を xx! (C 代 人 





【 プ ログ ラム 例 】 
DIM a(10) AS SINGLE 





NEXT i 
FORi=0TO9 





PRINT ai): 





NEXT i 
END 


DATA 87,65, 83, 72, 73.78,71, 84,79,78 


【 結 果 】 


87 65 83 72 73 78 71 
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【 結 果 】 
204 16 


【 結 果 】 
19683 


【 結 果 】 


22.91765 


【 結 果 】 
931.6463 


ーーーーーーーーーーーーー 配列 の 宣言 
FORi=0TO9 デー タ の 読み 込み 
READ ai) 


] 表示 
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(12) 【 プ ログ ラム 例 】 


(18) 


宮 却 





DEFSTR A-C 計 計 
america = "USA"ーーーーーーー 一 本 値 の 代入 
austria = "Europe' 
britain = "England" 


burma = “Asia" 

canada = “North America" 
china = "Mainland China" 
PRINT america, austria 
PRINT britain, burma 
PRINT canada, china 











END 

【 結 果 】 

USA Europe 
England Asia 


North America Mainland China 


【 プ ログ ラム 例 】 

DEFINT X-7 ーーーーー*、 ゞ , 2 で 始ま る 変数 名 を 整数 型 に 宜 言 
a! = 38.29 値 の 代入 

b! = 11.33 

c! = 8.76 

x =a!*Db! 積 、 商 , 積 を x、y, z に 代 人 
Y=a!/c! 

Z = b!*c! 

PRINT x, y, 2 

END 

【 結 果 】 

434 4 99 
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2 章 定 数 


CONST 





【 例題 11】 記号 定数 
Ei を 定数 3.14159 と し て , 半径 20 の 円 の 面積 と 円 周 長 を 求め る プロ グラ ム を つく れ . 








【 解 説 】 ⑥ 記号 定数 を 使い ます . 
① 定数 に 記号 を つけ , 常に その 値 を 保ち ます . 
③ CONST Pi!=5.14159 と する と Pi の 値 は 常に 3.14159 に 固定 され ます . 途中 で Pi=5・ る 
の よう に 値 を 入れ か える と と は で きま せん . つま りう っ か り 値 を 変え た て し まう と いっ た ミス は お と り 
ませ ん . 変数 を 使う と そう いう と と が お と る と と が あり ます . また , 3・14159 の よう に 値 の 桁 が 多 
い 場 合 は 記号 定数 に 代 人 し て お いた 方 が 使い や すく な り ま す . 

CONST Pi!=3.14159 の "! "に よっ て Pi の 型 を 単 精度 実数 型 と し ます . 
! は 定数 の デー タ 型 を 示す 型 宜 言 文字 で す . 


9 


/ 


リ 


) CONST Pi!=3.14159 で は Pi が 定数 の 名 前 で . 
⑤ 記号 定数 で 使わ れ た 名 前 , 本 例 で は Pi は 以降 , 変数 と し て 使用 で きま せん . Pi%, Pi!, Pi# 


CI 


Pi$ の いずれ も 使え ませ ん . 


【 プ ログ ラム 例 】 
CONST pil! = 3.14159 一 一 定数 3・14159 を pi! 固定 する 


s! =30*30*pi 面積 の 計算 
1! = 2 * 30 * pi 一 一 円 周 長 の 計算 


PRINT es 
PRINT 1! 
END 

【 結 果 】 


2827.431 
188.4954 








【 例 題 12】 整数 型 の 記号 定数 
九 九 の 表 を つく る プロ グラ ム を つく れ . 








【 解 説 】 〇 整数 型 の 記号 定数 を 使い ます - 
① CONST ico%=9 で は io% を 9 固定 し ます . % は 整数 型 を 玉 し ます . 


② FOR 1i%=1 TO io% 
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FOR j%=1 TO io% 
7 
(に よっ て i% を 1 か ら 9 3% を 1 か ら 9 まで ルー プ し ます . くり 返し は 編 5 章 で 扱い ます . 
⑧⑬ 五 五 の 表 に し た いと いう と き は CONST ioc%=5 と な お す と と で 1i% を 1 か ら 5, j% を 1 か ら 5 
まで の ルー プ と し ます . と の よう K 記 号 定数 を 使う こと で 訂正 が 簡単 に いく と と が あり ます . 特に 
ic% を プロ グラ ム の 中 で た くさ ん 使っ て いる 場合 それ を さがす の は 大 変 で す . 

















【 プ ログ ラム 例 】 
CONST ic% = 9 io% を 9 固定 する 
FOR i% = 1 TO ic% i を 1 か ら 9 まで ルー プ 
FOR 抽 = 1 10 iC%- 一 一 ーーーーーーーーー デ 3 を 1 か ちら 9 まで ルー プ 
PRINT USING " 扶 16* 1i*3 を 表示 
NEXT j% 
PRINT 改行 
NEXT i% 
END 
【 結 果 】 


6 8 10 12 14 16 18 


Oo の ( ら 


12 16 20 24 28 32 36 
10 15 20 25 30 35 40 45 
18 24 30 36 42 48 54 
14 21 28 35 42 49 56 63 
16 24 32 40 48 56 64 72 
18 27 36 45 54 63 72 81 


ら Co の o コ の の の らら ビ 
Co 
よう 





【 例 題 13】 文字 型 記号 定数 
m$ を 文字 定数 "Microsoft も "で 固定 し , m$ と "| |Quick C"、m$ と "| |Quiok BASIC" 
を 表示 する プロ グラ ム を つく れ . 








【 解 説 】 〇 文字 型 の 記号 定数 を 使い ます . 

① 次 の 形 で 変数 m$ を "Miorosoft "に 固定 し ます . 
CONST m$="Miorosoft" 

【 プ ログ ラム 例 】 


CONST m$ = "Microsoft"ーーーーーー 文字 定数 "Microsoft" を m$ に 固定 する 
ml$ = m$+ "Quick C"ーーーーーーm$ と 文字 列 の 和 を m 1$ と m 2$( に 代入 
m2$ = m$+ "Quick Basic" 一 」 
PRINT m1$ 結果 の 表示 
PRINT nm2$ 
END 


【 結 果 】 


Microsoft Quick C 
Microsoft Quick Basic 
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[演習 問題 」 


(14) 、x% を 定数 15 と し て , 次 の 15 個 の デー タ を 読ん で , その 和 を 求め る プロ グラ ム を つく れ . 


デー ダミ 1 .25。2 .56。3。25, 半 。55。3.21 
4.55,2.36,3.54,1.56,7.51 
8.21.9.56,.8.12,9.21,2.09 


(15) x! を 1.7321 と し て 次 図 の 1 を 求め る プロ グラ ム を つく れ . た だ し , 1.7321 は 次 図 の a 


を 1 と し た と き の 1 の 長 さ で ある . 
/| 


SS カー ンダ 
300 














(16)  a$ を "|]C" と し て , Turbo C, Miorosoft C, Quick C、Run C, Lattioe C と 表 
示す る プロ グラ ム を つく れ . 








解答) 
(14) 【 プ ログ ラム 例 】 

CONST x% = 15 一 ーーーーーーーー*% を 15 定数 と する 

FOR i% = 1 TO x% デー タ の 読み 込み と 和 
READ z 
22 = 2Z†Z 

NEXT i% 

PRINT 2Z2z 和 を 表示 

END 

DATA 1.25, 2.56, 3.25, 4.55, 3.21 

DATA 4.55, 2.36, 3.54, 1.56, 7.51 

DATA 8.21, 9.56, 8.12, 9. 21, 2.09 

【 結 果 】 

71.53 


(15) 【 プ ログ ラム 例 】 
CONST x! = 1.7321 





xx! を 定数 1 .7321 と する 


] = 300 * x! ニ 一 一 一 一 一 一 1 を 求め る 
PRINT 1 一 一 一 ーー 一 ーー 1 の 表示 
END 

【 結 果 】 

519.63 
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(16) 【 プ ログ ラム 例 】 

















CONST 8 =“C 8$ を 定数 "| ]C" と する 
FORi=1105 5 回 の くり 返し 

READ aa$ ョ 文字 列 デ ー タ を 読む 

PRINT aa$ + a$ 読み 込ん だ 文字 列 と "[-]C" を 加え て 表示 
NEXT i 


END 
DATA Turbo, Microsoft, Quick, Run, Lattice 


【 結 果 】 


Turbo C 
Microsoft C 
Quick C 

Run C 
Lattice C 


eee ニー ペ s エ ジー も く ams や ュー で やき エ ャ ーー いら とこ とべ ニー の ーッ ーー ニー で ear ecxPCase 
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INPUT, INPUT$, INPUT ま ,TNRTINPUT、 INKRY$、 
READ, DATA, RESTORE 





【 例題 14】 INPUT に よる 入力 
整数 を 2 つ 入 力 し , 次 実数 を 2 つ , 次 に 文字 列 を 2 つ 入力 し て 表示 する プロ グラ ム を つく れ 











【 解 説 】 〇 数 値 と 文字 列 を 人 力 し ます . 
① TINPDUT 変数 名 で 変数 名 に 値 を 代 人 し ます . 入力 する デー タ の 型 に あわ せ た 変 数 名 を 使い ます 


[ 例 」 
TNPUT ズ % 整数 を 1 つ x% に 人 入力 
TNPUT x?! 単 精度 実数 を 1 つ x! に 入力 
TNPUT 市 文字 列 を 1 つ x$ に 人 入力 


③ プロ グラ ム が 実行 され る と ? が 表示 され ます の で デー タ を 入力 し ます . デー タ の 型 が 異な る と 指定 
され た 型 で 入力 され ます . た だ し , 数 値 型 変数 へ 文字 列 の 入力 は で きま せん の で " 再 入 力 し て 下さ 
い ” の 指示 が で ます . 

⑬ 2 つ 以 上 の デー タ を 入力 する と き は 変数 名 を カン マ で 区 切り ます . 


. 例 」 
INPUT 。x%, ゞ % 整数 を る つ 人 入力 
TNPUT テ xY。 y!。 2Z7 単 精度 実数 を 3 つ 入 力 
INPUT  x$,。 y#, 2z$ 文字 列 1 つ , 倍 精度 実数 を 1 つ , 文字 列 を 1 つ 入 力 


(④ プロ グラ ム を 実行 する と ? が 表示 され ます の で , 次 の よう に デー タ を 区 切っ て , 変数 の 型 と 順番 お 
よび 数 を そろ えて 人 入力 し ます 
デー タ , デー タ , デー タ 避 ) また は デー タ [ ] デ ー タ デー タ [) (は スペ ー ス ) 
⑯⑤ 型 が 異な っ た り , 数 が 違っ て いた りす る と 再 入力 を 促し ます 
































【 プ ログ ラム 例 】 

INPUT x%, y% 整数 々 つ 入 力 
INPUT x, y 実数 2 つ 入力 
INPUT x$, y$ 文字 る つ 入 力 
PRINT x% y% 整数 2 つ 表 示 
PRINT x,y 実数 2 つ 表 示 
PRINT x$, y$ 文字 2 つ 表 示 
END 
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【 結 果 】 
? 25,34 25, 84 回 
9 1..26 , 35.287 1.26, 35.287 回 
3 ABOC。ZYX 回 の 例 
1.26 35.287 
ABC ZYX 





【 例題 11】 プロ ンプ ト 文 付き の 入力 
* ス ウチ (1 カラ 100) ノ ニュ ウリ ョ ク " と 表示 し た 後に 数 値 を 入力 し て , 表示 する プロ 


グラ ム を つく れ . 











【 解 説 】 〇 プロ ンプ ト 文 付き で 入力 
① TINPDUT 変数 名 で の 入力 は ? が 表示 され る だ け で す . 次 の よう に か く と ” "の 中 の 文章 を 表示 し ます 
の で 入力 する 内 容 が わか りや すく な り ま す . 
TNPUT "文字 列 ” 変数 名 
③ PRINT 文字 列 "』 








INPUT 変数 名 
で ゃ 同じ 効果 が で ます . 
【 プ ログ ラム 例 】 
INPUT "1 7 100 / = X% 整数 の 入力 
PRINT x% 表示 
END 
【 結 果 】 
b 義 ウ 1UOO メ ご ッ ウ リョ グ ク ?% ち 55 55 を 入力 の 例 
55 





【 例題 16】 LINE INPUT に よる 入力 
文章 を 入力 し ,。 その まま 表示 する プロ グラ ム を つく れ . 











【 解 説 】 ⑥ 文章 の 入力 を し ます . 

① LINE TINPUT x$ は キー か ら お され た 文字 ・ 文 章 を その まま x$C 受 けつ け ま す . "や , も その ま 
ま 受 けつ け ま す . INPUT x$ で は , や "は 受け つけ ませ ん . 

【 プ ログ ラム 例 】 


LINE INPUT x$ 入力 
PRINT x$ 一 ーーーーー 表示 








END 
【 結 果 】 
"Quick Basic,Quick C,Quick Fortran" 入力 例 
"Quick Basic,Quick C,Quick Fortran" ーーーーー 表示 例 "や , が 受け つけ られ て いる 
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【 例題 17】 INPUTS$、INPUT\ に よる 入力 
キー か ら 8 文字 と 6 文字 の 2 文字 列 を 入力 し て 表示 する プロ グラ ム を つく れ . 











【 解 説 】 〇 TINPUT$ と INPUT ま ( に よる 指定 文字 数 の 入力 を し ます . 
① 次 の 形 で 指定 し た 文字 数 の 文字 列 を 受け つけ , 変数 に 代入 し ます . 漢 字 は 2 で 1 文字 で す . 
x$=TNPUT$( 8 ) 
入力 し て | 四 8 バイ ト , 半角 文字 は 8 文字 
x$C 代 入 漢字 の 場合 は 4 文字 
y$=TNPUT ま (6 ) 
6 文字 , 半角 で も 漢字 で も 6 文字 
⑱ エコ ー バ ッ ク は あり ませ ん . お され た キー が 指定 し た 文字 数 に な る と 変数 に 代入 され ます . は 








し ませ ん . 
【 プ ログ ラム 例 】 
x$ = INPUTS8) 8 文字 の 入力 
y$ = INPUTY(6) 6 文字 の 入力 
PRINT x$, 》$ 
END 
【 結 果 】 
abcdefgh ijkl1mn abodefghijk1mn を 入力 前 の 8 文字 が x$, 後 の 6 文字 が y$C 代 入 
宮 迷 艇 深 お か きく け こ ご あい ぃ ぅ ぇ お か きく け こ を 入力 前 の 4 文字 が x$、 後 の 6 文字 が y$I 代 入 





【 例 題 18】 キー か ら 1 文 字 入力 
キー か ら 文字 が お され て 入力 され る の を 待ち , 入力 され た ら そ の 文字 ・ 記 号 を 表示 する プロ 
グラ ム を つく れ . た だ し , "e" が お され た ら 終 了 す る も の と する 








【 解 説 】 〇 キー 入力 の くり 返し を し ます . 
① 次 の 形 で 1 文字 を 入力 し , 表示 し ます . "e "が 入力 され る と 終了 し ます . D0 文 に つい て は TI 編 5 





章 で 扱い ます . 
DO 
=TNKEY$ キー より 1 文字 入力 
PRTNT x$ 表示 





100P WHILE x$<>"e"ーーーーーーーーーー"e" が 入力 され る と x$<>"e" が 偽 と な 
り DO LO00P を 終了 する 
【 プ ログ ラム 例 】 
DO 
Xe INKEY》 一 ーーーーーー 叶 ど 次 力 
PRINT x$: 一 一 一 一 一 表示 
LOOP WHILE x$ <> "e" "e" の と き 終 了 
END 
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【 結 果 】 
54jkihkKguycfe 5。 4、…, e を 入力 の 例 
【 例題 19】 特殊 キー の 判定 
記号 を 


キー を お し , 【 キー の と き プ ログ ラム を 終了 し , その 他 の キー の と き は その 文字 , 





表示 する プロ グラ ム を つく れ . 








【 解 説 】 〇 お され た キー を 判別 し ます . 
① キー が お され る と x$=INKEY$ で x$ に キー の アス キー コー ド が 入り ます . し た が っ て , x$ の ア 
スキ ー コ ー ド を みる と 何 が お され た か が わか り ま す . 

②③ キー の アス キー コー ド は & HOD で す . 

③⑬ 1P 文 , GOTO 文 に つい て は T 編 6 章 で 扱い ます -. 


【 プ ログ ラム 例 】 
10 : x$ = INKEYWー 一 一 一 | 
IF x$ = "” THEN GOTO 10 
PRINT x$: 一 一 ーーーーーーーーーーー *$ の 表示 
IF ASC(x$) <> &HD THEN GOTO 10 加 の と き 終 了 
END 
【 結 果 】 
Acd ft も … []g f と キー を お し た 例 


Acdeg153vgt fttrh  gf 





【 例題 20】 READ に よる デー タ の 読み 込み 
次 の デー タ を 配列 r%( 15 ) に 読み 込ん で 和 を 求め 表示 する プロ グラ ム を つく れ . 





デー タ j8, 7 29, 6, 5, 4 8, 2 0 5、 2 7. 6, 7 








【 解 説 】 READ に よっ て デー タ を 読み 込み ます . 
① 次 の 形 で デー タ を 配列 r%(0)~r%(14 ) に 読み 込み ます . 配列 に つい て は H 編 8 章 、 くり 返し に 
つい て は T 編 5 章 で 扱い ます . 
FOR i=0 TO 14 
READ r%(1) 


NEXT 1 


r%( 0 )r%(1 )r%(2)……r%(14 ) 


Da ta 8 7 る 96, 5 人 8 


Data 2, 0, 5, 2,。 7 6, 7 
⑨ デー タ 文 Data… は プロ グラ ム の ど と に か いて も か まい ませ ん . 前 か ら 順 に 変数 に わり あて られ ま 


2 
⑬ デー タ 文 は いく つか に 分 割 し て か く と と が で きま す . 
7 の 0 
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(〈④ デー タ 数 が 変数 名 より 少な いと エラ ー と な り ま す が , 多い と き は 余っ た 分 は 無視 され ます . 
【 プ ログ ラム 例 】 
DIM r%(15) 配列 の 宣言 
FOR i = 0 10 14 デー タ の 読み 込み 
READ r%(i) 
NEXT i 


FOR i = 0 TO 14 PR 
t% = t% + T%(i) 

NEXT i 

PRINT {t% 

END 

DATA 8,7,2,9,6, 5,4.8 ーーーー 結果 の 表示 

DATA 2,0, 5, 2, 7, 6, 7 


【 結 果 】 
78 











【 例題 21】 READ に よる デー タ の 読み 込み 
下 の デ ー タ を 配列 m$(10 ) c 読 み 込 み "H" で 始ま る も ゃ の を 表示 する プロ グラ ム を つく れ . 
デー タ jTokyo, Hakodate, Morioka, Hirosaki, Hagi 


Koohi, Uwajima, Kanazawa, Narita, Kisarazu 








【 解 説 】 〇 文字 列 デ ー タ を 読み 込み ます . 

G① 変数 名 に 文字 型 変数 を 使う 他 は 【 例 題 20】 と まっ た く 同 じ 方 法 で 読み 込み ます . 

③ ASC(m$(1) )=72 すなわち "H" で 始ま る 文字 列 を 表示 し ます . 3f 文 に つい て は TI 編 6 章 で 学び 
ます . 

【 プ ログ ラム 例 】 

DIM m%(10) ] 配列 の 宣言 





FORi=11010 デー タ の 読み 込み 
READ m$(G⑪) 

NEXT i 

FOR i = 110 10 | *H" で 始ま る 文字 列 の 表示 








IF ASC(m$(⑪)) = 72 THEN PRINT m$(⑪) 
NEXT i 
END 
DATA Tokyo, Hakodate, Morioka, Hirosaki, Hagi 
DATA Kochi, Uwajima, Kanazawa, Narita, KisaraZu 





【 結 果 】 


Hakodate 
Hirosaki 
Hagi 
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【 例題 22】 デー タ の 再 利用 

下 の デ ー タ を 使っ て , a$(C Tokyo, b$ に Nagoya, c$(C 0saka, d$C Nagoya,、 e$ に 
0saka, f$C て Osaka と 読み 込む せ プ ログ ラム を つく れ . 

デー タ 』Tokyo, Nagoya, Osaka 








【 解 説 】 〇 デー タ を 何 回 か 読み 込み ます . 

① READ 文 で は 前 か ら 順 に デー タ を 読ん で 変数 に C わ りあ て ます が , RESTORE を 使っ て , 順序 を か え 
る と と が で きま す . 

③ RESTORR 行 番号 また は RESTORE ラベ ル に よっ て , その 行 番号 また は ラベ ル へ も どっ て , そこ と 
か ら 順 に デー タ を 読み ます . 





























8$ b$ c$ d$ e$ f$ 
RESTORE100 に よる 
RESTORE 0SA に よる 
@)】 1 
③ 
③ 
o ③ | 
Tokyo Nagoy& 0sakea 
①~③⑬ は 1 番 日 の READ 文 へ 5 番目 の READ 文 を 示す . 
【 プロ グラ ム 例 】 
READ a$, b$, c$ a$ っ oc$ に デー タ を 読む 
RESTORE 100 デー タ ポ イン タ を 100 へ も どす 
READ d$, e$ d$, e$C デ ー タ を 読む 
RESTORE osa デー タ ポ イン タ を osa へ も どす 
READ f$ f$C に デー タ を 読む 
PRINT ai iD8: 7 Ti c5: 7 d8: "je$: "人 $ 一 表示 
END 
DATA Tokyo 


100 DATA Nagoya 
osa: DATA 0saka 


【 結 果 】 


Tokyo Nagoya Osaka Nagoya Osaka Osaka 





【 例題 23】 デー タ 文 に 終わ り の マー ク 

次 の デー タ を 読ん で 配列 x%(10 ) に 格納 し , 和 と 平均 を 求め ある プロ グラ ム を つく れ . た だ し , 
デー タ 文 の 最後 に 0 を お き , デー タ の 終了 を 示す も の と し , と の 0 は デー タ に は 入れ な いも ゃ の 
と する . 

デー タ 57, 6, 3, 5, 9, 0 
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【 解 説 】 〇 デー タ 文 の 終わ り C 0 を つけ て デー タ の 終了 を 示し ます . 
① デー タ 数 が わか っ て いる と き は TOR-RNEXT 文 の くり 返し な ど を 使っ て 読む と と が で きま す が , 
デー タ 数 が 不明 の と き は それ が で きま せん . デー タ が な いと き READ する と エラ ー と な り ま す . そ 
と で , デー タ 文 の 最後 に 0 な ど を つけ て , デー タ の 終わ り を 示す と 処理 が し や すく な り ま す . 
③ 次 は その 1 例 で す . と の 形 で は x(i) KC 読み 込ん だ デー タ が 0 の と き 読 み 込み を 終了 し ます . と 
の 時 の デー タ 数 は ミ -1 で す . 
FOR  i=1 TO 100 
READ x(i ) 
1F x(1i)=0 THEN EXIT FOR 
NEXT 1 
⑬ 次 の 形 で も デー タ 文 の 最後 の 0 まで 読み 込み ます . 
DO Whi]1e x 
C ニ G+1 
READ x 
x(o)= ネ 
WEND 
④ デー タ の 終わ り を 示す マー ク は 0 で な く て も , -99999 な ど デ ー タ と し て 起こ と りえ な いも の を 使 
いま す . 














【 プ ログ ラム 例 】 
FOR i = 1 10 10 10 回 の くり 返し 
READ y% デー タ を 読み 込む 
IF y% = 0 THEN EXIT FOR デー タ が 0 の と き ル ー プ の 外 へ 分 岐 
X%(i) = y% 配列 ヘ デ ー タ を 代入 
t =t+ y% 和 を 求め る 
NEXT i 
h =t/ (ji - 1) 一 一 一 平均 を 求め る 
PRINT t, h 和 と 平均 の 表示 
END 
DATA 7.6,3.5,9.0 
【 結 果 】 
30 6 


[演習 問題 」 


(17) 整数 を 1 つ , 文字 列 を 2 つ 入 力 し て 順に 表示 する プロ グラ ム を つく れ . 

(18) プロ ンプ ト 文 で "ナマ エ オ ニュ ウリ ョ クシ テク ダサ イ ” と 表示 し た 後 , na&$C 名 前 を 入力 
し て 表示 する プロ グラ ム を つく れ . 

(19) キー を お し て , E] の と き "end" と 表示 する プロ グラ ム を つく れ . 

(20)0 キー を お し て , IESCJ キー の と き esoape, [TAB] キー の と き tab と 表示 する プロ グラ ム 
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を つく れ . た だ し , 他 の キー の と き は 何 も 表 示し な いで 終了 する も の と する . 
(21) キー か ら 10 文字 を 入力 し て 表示 する プロ グラ ム を つく れ . 
(22) 次 の 文章 を キー 入力 し て か ら 表 示す る プロ グラ ム を つく れ . た だ し , "も ゃ 入力 する も の と する . 
?You visited Boston 1ast year, didn't you?" 
(23) 下 の デ ー タ を 読ん で 配列 x%(5,7) に 代入 し , 次 に 横 の 項 の 和 を 求め て , 全体 を 表示 する プ 
ログ ラム を つく れ . 





























(24) 下 の デ ー タ を 使っ て , a1$ に Washington,、 a2$(C Chioago, a3$(C Sa1t Laikke Cit 
y, 84$( に TLos Angeles、a5$ に Chioago, a6$ に Sa1t Lake City, a7$(C Washin 
gton,、 a8$(C Chioago, a9$( に Sa1t Lake City を 代入 し て , 順に 表示 する プロ グラ ム 
を つく れ . 

デー タ 』Washington,、 Chioago, Sa1t Lake City,、 Los Ange1]es 

(25) 次 の デー タ を 配列 x%(15 ) に 読み 、 和 を 求め ある プロ グラ ム を つく れ . た だ し , 0 の と き デ ー 

タ は 終了 する も の と する . 
デー タ 59, 7。 8。5。 2 7、6、8、1.5. 2 和 も 7 も る 0 
(26) キー が お され た ら , プロ グラ ム を 実行 し て か ら 何 秒 経過 し た か を 示す プロ グラ ム を つく れ . 





[ 解 答 ] 
(17) 【 プ ログ ラム 例 】 
INPUT x% ーーー 整数 の 人 力 
INPUT x1$, x2$ーーーー 一 一 文字 列 を 2 つ 入 力 
PRINT x% 。x1$, x2$ 表示 
END 
【 結 果 】 
? 555 555 回 
? Quick C,Quick Basic Quiock C, Quiok BASICa) の 例 
555 Quick C Quick Basic 


(18) 【 プ ログ ラム 例 】 





INPUT " エ オ ニュ 9 リョ 7 カゲ サイ: na$ 入力 

PRINT na$ 一 ーーーーーーーーー 一 一 表示 

END 

【 結 果 】 

ナマ エ オ ニュ ウリ ヨク シテ クタ ~ サ イ 9? 大 山 太 郎 大 山 太郎 軌 の 例 
大 山 太郎 
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(19) 


(20) 


(21) 


(22) 


(25) 


3 章 入力 ・ デ ー タ の 読み 込み 























【 ブ プロ グラ ム 例 】 
10 x$ = INKEYS 1 文字 の 入力 

IF x$ = “” THEN GOTO 人 ニ ーーーー」 
IF ASC(x$) = &H45 THEN PRINT "end^ "E" の と き end と 表示 
END 
【 結 果 】 
end "EE" を お し た と き 
【 プ ログ ラム 例 】 
10 x$ = INKEY$ PP x$ に 代入 され る , 

IF x$ = "” THEN GOTO 10 お され な いと き は くり 返す 
IF ASC(x$) = &HIB THEN PRINT "escape- キー の と き の 表 示 
IF ASC(x$) = &H9 THEN PRINT "tab"ーーーーー 一 キー の と き の 表 示 
END 
【 結 果 】 
tab AB) キー を お し た 例 
GSCSDG キー を 入力 し た 例 
【 プ ログ ラム 例 】 【 結 果 】 
x$ = INPUT$(10) 10 文字 の 入力 Quick C Qu Q……u の 例 
PRINT x$ -- 一 一 一 一 一 表示 
END 
【 プロ グラ ム 例 】 
LINE INPUT x$ 文章 の 入力 
PRINT x$ - 一 一 一 一 表示 
END 
【 結 果 】 
"You visited Boston last year,didn't you ?"ーーーーー キ ー 人 入力 
"You visited Boston last year,didn't you ? リ ーー 表示 
【 プ ログ ラム 例 】 
DIM x%(3, 8) デー タ を 2 次 元 配列 へ 読み 込み 横 の 和 を 求め る 
FORi=0T0O2 

FORj=0106 

READ x%⑪, 1) 
x%(Gi,。 7) = x%(G。 7) + X%(G, 1) 横 の 和 を 求め る 

NEXT j, 1 
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(24) 


(25) 


= で sas aa 














FORi=0TO2 ] 2 次 元 の 表 を 表示 

FORj=0T07 

PRINT xX%G, 1) : 

NEXT j 
PRINT 
NEXT i 
END 
DATA 3, 2, 8, 6, 3, 4. 2 
DATA 8, 6, 7, 5, 2, 8, 7 
DATA 9, 4, 1, 7, 2, 6, 5 
【 結 果 】 
3 2 8 6 3 4 2 28 
8 6 7 5 2 8 7 43 
9 4 1 7 2 6 5 34 
【 プロ グラ ム 例 】 
READ a1$, a2$, a3$, a4$ a 1$~-a 4$ に デー タ を 読み 込み 
RESTORE toshi toshi へ デ ー タ ポイ ンタ を も どす 
READ a5$, a6$ a 5$、a 6$ の 読み 込み 
RESTORE 先頭 デー タ ポ イン タ を ゃ も どす 
READ a7$, a8$, a9$ a 7$ーa 9$ の 読み 込み 
PRINT a1$: " ": a28: " ": a3$ 結果 の 表示 
PRINT a45: "ja5$: ja6$ 
PRINT a7$:. "| a8$8: "ja9$ 
END 


DATA Washington 


toshi: DATA Chicago, Salt Lake City,Los Angeles 


【 結 果 】 


washington Chicago Salt Lake City 
Los Angeles Chicago Salt Lake City 
washington Chicago Salt Lake City 














【 ブ プロ グラ ム 例 】 

DIM x%(15) 

FOR i = 0 TO 14 15 回 の くり 返し 
READ y% デー タ の 読み 込み 
IF y% = 0 THEN EXIT FOR デー タ が 0 の と き ル ー プ の 外 へ 分 岐 
X%(i) = y% 配列 ヘ デ ー タ を 代入 
t =t+ 交 一 ーーーーーー 丁 和 を 求め る 

NEXT i 

PRINT t 和 の 表示 

END 

DATA 9,7,8,5,2,7.6,8 

DATA 1,3, 2,4.7.4.7.0 

【 結 果 】 

80 
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(26) 【 プ ログ ラム 例 】 





xl = TIMER 一 ーーーーーーーーーー 現在 の 秒 を 代 人 

DO キー が お され る の を 待つ 
LOOP WHILE INKEY$ = ーー 

x2 = TIMER 一 ーーーーーーー 現在 の 秒 を 代 人 

PRINT x2 - x1 一 一 ーーーーー 経過 時 間 を 表示 

END 

【 結 果 】 

15 
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4 章 書式 指定 の 表示 と 印刷 


PRINT USTNG,、LPRINT USING 





【 例題 24】 文字 の 書式 指定 表示 
a$ を "Quiok Basic" と し て a$ を ①12 桁 で ②③" ゲン ゴ ハ [ "の 後 C 15 桁 で 、③ 先 頭 
1 文字 を , (④5 桁 を 表示 し , 次 に 3 スペ ー ス の 後 C a$ 全 体 を 表示 する プロ グラ ム を つく れ . 











【 解 説 】 〇 文字 列 を 書式 指定 で 表示 し ます . 
① PRINT USING の 後に 書式 を 指定 し ます -. 
ERINT USING "| [| | "ja$ 








6 桁 
& & を で か と むと && を 含む 桁 数 で a$ を 表示 
と の 場合 6 桁 で す . 文字 は 左 づめ で す . 








PRINT USING "ケン コ | ハハ & &" ja も 
文字 は その まま 表示 





桁 数 が 足り な いと き は && で 指示 され た 桁 の み 表 示 
PRTNT USING  "! "ja$ 
先頭 1 文字 を 表示 
PRINT USING "@"ja$ 
桁 数 に 関係 な く 文 字 列 を 表示 
③⑬ PRINT を LPRTINT と する と 印刷 され ます . 











【 ブ プロ グラ ム 例 】 
a$ = "Quick Basic" 
PRINT USING "& @: a$ 12 桁 で 表示 
PRINT USING "ゲカ & Wi a$ 文字 の 後に 表示 
PRINT USING "!": a$ 先頭 1 文字 の 表示 
PRINT USING & & @: a$: a$5 一 一 5 文字 と 全体 を 表示 
END 

【 結 果 】 


Quick BasiC 

ンコ ~ 敗 Quick Basic 
Q 

Quick Quick Basic 
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【 例題 5】 数 値 の 書式 指定 

x% を 12545、y! を 1234.56, z% を -9876 と し て (①x% と z% を 6 桁 で 。③y! を 全体 を 7 
桁 小数 点 以下 2 桁 と 全体 を 6 桁 小数 点 以下 1 杵 で 、⑧x% を 全体 6 桁 で 先頭 と 最後 に + を つけ て , 
④z% を 全体 を 7 桁 で 先頭 と 最後 に - を つけ て 表示 する プロ グラ ム を つく れ . 











【 解 説 】 〇 数 値 の 書式 指定 を し ます . 
① 数 値 の 書式 指定 も PRINT USING の 後に 書式 を か きま す . 
③ 次 の よう な 指定 と な り ま す 
PRTINT USING "######| | | |N##### 5% あ 32% 
全体 を 6 売 頭 が プラ 
2 の と き 首 隊 有 プ ウー 祭る 6 
| マイ ナス の と き 








ー- が つく . 符号 も ゃ 含め て 6 桁 


PRINT USING "####。##| | |H#N##。# 7 3! 
Y 

全体 7 桁 小数 点 以 し 4 6 桁 で 

ド 2 桁 小数 点 以下 

| 1 桁 皿 捨 五 











入 さ れる 


PRTNT USING "+######  ## す すす ## 二 あの 


プラ ス の と き 先 頭 に + が つく 


プラ ス の と き 最 後に + が つく 








PRTINT USTING "##-"』z% 


し 


マイ ナス の と き 最 後に - が つく 

















【 プ ログ ラム 例 】 
x% = 12345 値 の 代入 
y! = 1234.56 
2Z% = -9876 
PRINT USING "寺井 震 捧 ": x%: 2% 6 桁 で 表示 
PRINT USING " 拓 拉 才 畠 提 . ギ : y1: yI 小数 点 以下 2 桁 と 1 桁 で 表示 
PRINT USING "+ 畠 畠 牛 将 引 弥 Yi x%: xX% + を 先頭 と 最後 に つけ て 表示 
PRINT USING " 振 拉 # 斉 粘 引 引 #-": 2%: 2% ー を 先頭 と 最後 に つけ て 表示 





END 
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【 結 果 】 





12345 ー9876 
1234.56 1234.6 
+12345 12345+ 

-9876 9876- 








【 例題 26】 * と \、 カン マ 付 き 表示 

*% を 123845 と し て ① 全 体 を 8 桁 で , 8 桁 未満 の と き は 先頭 を * を うめ て , ② 全 体 を 9 桁 で , 
先頭 に き を つけ , 小数 点 以下 2 桁 で 、③ 全 体 を 9 桁 で 先頭 に まき を つけ , 9 桁 未 満 の と き は * で う 
め て , ④ 全 体 を 8 桁 で 3 桁 の カン マ 付 き で 表示 する プロ グラ ム を つく れ . た だ し , 桁 数 に は *, 
ぎ 。 。。 。 も 含め る ゃ の と する . 





【 
0) 


④ 


解 説 】 〇 *, 呈 カン マ を つけ ます . 
次 の 書式 で * を つけ ます . 
PRINT USING "ネネ ###### ョ の 
全体 8 桁 , 8 桁 未満 の と き は 先頭 を * で うめ る 
次 の 書式 で 詩 を つけ ます . 
PRINT USING "生生 ####。## ョ あめ 
全体 9 桁 , 先頭 に ま が つ く 
次 の 書式 で き を つけ ます . 桁 数 が 少な いと き は 先頭 を * で うめ ます . 
PRTNT USTING "ネネ 半 ##### す せり ョ の 
全体 9 桁 , 先頭 に \ が つく 
9 桁 未 満 の と き は * で うめ る 
次 の 書式 で 3 桁 ど と の , を つけ ます . 
FRINT USING "####,。### ix の 


全体 8 桁 
3 桁 ど と の カン マ 付 き 


【 プ ログ ラム 例 】 


x% = 12345 

PRINT USING 「* 拉 Hf ま , x% 
PRINT USING “時 弥 絆 . 妊 ": x% 
PRINT USING “**Y 妊 細 絆 ": x% 
PRINT USING “ 閣 直 , 拓 ま : x% 
END 





* で うめ て 表示 

竹 つ き で 表示 

壮 つ き * で うめ て 表示 

3 桁 ご と の カン マ 付 き 表 示 











【 結 果 】 


ネ ※※※12345 
\12345.00 
※※※\12345 

12,345 
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nn 





【 例題 27】 指数 書式 指定 表示 

x' を 12.545 と し て ①0 .---E-- の 形 の 指数 で , 1 .---Eー- の 形 の 指数 で , ③ 値 の 前 に 
+ 符 号 を つけ た 指数 と EE の 後 を 3 桁 と し た 指数 で , ④ 先 頭 に #, 最後 に - (アン ダス コア 了 ) を つ 
け て , ⑤ 全 体 を *### の 指定 で . た だ し , 桁 不足 の と き は 先頭 に C% を つけ て , 各々 表示 する プロ 
グラ ム ぞ つくれ. 











【 解 説 】 ⑥ 指数 書式 の 指定 を し ます . 
① 次 の 書式 で 指数 の 書式 を 指定 し ます . 
PRINT USING "#.##W# 
指数 、 小数点 以上 な し 
小数 点 以下 3 桁 , 指数 部 は 
E+02 の よう K4 桁 
PRINT USING "#。##N# 3 


指数 、 指数 部 は 
RE+001 の よう KC5 桁 


③ 次 の 書式 は 特殊 な ゃ る の で す . 
PRINT USING "_###。### ーー タ TY 


- が 1 つ 表 示さ れる 


_- の 後 の 1 文字 は その まま 表示 , 井 が 表示 され る . 
こと の * は 桁 を 示す * き で は な い 


PRINT USING ええ : 4 
桁 数 が 足り な いと き % を 表示 し て 示す 














【 プ ログ ラム 例 】 
x! = 12.345 
PRINT USING "# 失 「 s 記 指数 表示 , 指数 部 4 桁 
PRINT USING " 畠 . 畠 ・ X!ーーーーーーーーーーーーーー 指数 表示 , 指数 部 4 桁 
PRINT USING " 理 失 まま) 埋 畠 ま Ws 指数 表示 、 指 数 部 4 桁 と 5 桁 
PRINT USING ” 畠 ま 雷 ま ix! # と - を 表示 
PRINT USING " 疑 #": x! % で 桁 不足 を 表示 
END 
【 結 果 】 
0.123E+02 
1 .23E+01 
+1 .235E+01 +1.235E+001 
# き 12.345_ 
メ 12 
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【 例題 28】 書式 指定 で 表 を 表示 
結果 の よう 次 の デー タ を 名 前 を 11 桁 桁 あけ て 獲得 賞金 額 を 11 桁 で 8 桁 ご と の カン マ 
付き , 1 桁 あ け て 年 齢 を 3 桁 び 表示 する プロ グラ ム を つく れ . 
デー タ 名 前 ・ 獲 得 賞 金 ・ 年 齢 の 項 と する 
ェ タ 、 キミ コ , 68123415 , 36 , タ ナカ ミチ ヨ ,456365,29 


イイ シマ カス ~ コ , 712568 , 33, ウ ェ タ ~ ノリ コ , 5328756 , 31 
テ シ ~ マ キヨ ミ ,9563255 ,34, ナ カム ラ サチ コ ,658599,28 











【 解 説 】 〇 書式 指定 で 表 を 表示 
① 文字 列 、 数 値 な ど を 表示 する と き 書 式 指定 を し な いと , 表示 開始 桁 位置 や 最後 の 桁 が ば ら ば ら で 表 
(に な り ま せん . 
② 今回 は 文字 を 11 桁 , る スペ ミー ス あ け て 数 値 を 11 桁 で 3 桁 ご と の カン マ 付 き , 1 スペ ー ス あけ て 
3 桁 で 表示 し ます . 
【 プ ログ ラム 例 】 
FORi=1TO6 デー タ を 読ん で 表示 
READ a$, x& y% 
PRINT USING "& & 妊 括 # 拓 , 拉 # 押 ま | a9: x&: y% 
NEXT i 
END 
DATA r7 ダ 1 ユ ,68123415, 36, 2 カミ, 456365, 29 


DATA イザ ャ が 1 712568. 33. 如 が 1 5328756, 31 
DATA ゲ ャ 9563255, 34, 連 47 7 コ , 658599, 28 








【 結 果 】 
エタ キミ コ 68,123,415 36 
タナ カ ミチ ヨ 456,365 29 
イイ シー マ カス ~ コ 712,568 33 
ウェ タ ~ ノリ コ 5,328,756 31 
テシマ キヨ ミ 9,563,255 34 
ナカ ムラ サチ コ 658,599 28 


演習 問題 」 


(27)  a$ を "Quiok"、b$ を "Basic" と し て a$ を 8 桁 . b$ を 8 桁 で 続け て 表示 し , 次 (C &$ と 
b$ の 先頭 1 文字 を 続け て 表示 する プロ グラ ム を つく れ . 

(28) xr% を 5568, y! を 152.124 と し て , ①x% を 5 桁 、y! を 7 桁 、 小数 点 以下 2 桁 で 、③x% 
を 6 桁 小数 点 以 下 1 桁 .y! を 6 桁 小 数 点 以 下 1 桁 で ③x% を 5 桁 で + を 先頭 に つけ て , ! を 
9 桁 で 小数 点 以 下 8 桁 で + を 最後 に つけ て 表示 する プロ グラ ム を つく れ . 

(29) xr! を 18.259, y! を 22.458 と し て z! を その 積 と し , 式 と 結果 を 表示 する プロ グラ ム を 
つく れ . た だ し , ①x! と y! は 全体 6 桁 、 小 数 点 以下 8 桁 、 結果 は 全体 7 桁 、 小数 点 以 下 8 桁 
全体 を 指数 で 表示 する も ゃ の と する . 

ガメ メグ 


monareehpeeeeema た 4 っ ーー テー 


(30) 


(31) 


(27) 


(28) 


(29) 





4 章 


書式 指定 の 表示 と 印刷 





次 の デー タ を a%, b%, c% に よん で 書式 指定 を 使っ て , 1989 ネン 5 ガツ 15 ニチ 


と 表示 する プロ グラ ム を つく れ . 
デー タ : 1989, 5, 15 


次 の デー タ を 表 に する プロ グラ ム を つく れ . 項目 名 と し て "ショ ウ ヒ ン ”", 


ァ タ ンカ ”,。 "コス 


ウ ", "キン ガク "を つけ , 金額 に は 先頭 に " き "、 個数 に は 後に " コ " を つけ る も の と する . 


デー タタ : 人 "ソコン,125000,.25, ワ - フ "ロロ ,73500,110 
フ * リ ンタ , 68700,25 , テ イィ ス フレイ ,98500,35 
フ * ロッ タ , 1 46000,58, フ ロッ ヒ * イ 。145,3560 





[ 解 答 」 
【 プ ログ ラム 例 】 
a$ = "Quick" 
b$ = “Basic" 
PRINT USING "& && &": a$: b$ 一 一 表示 
PRINT USING "": a$: b$ 先頭 文字 の 表示 
END 
【 結 果 】 
Quick Basic 
QB 
【 プ ログ ラム 例 】 
x% = 3568 
y! = 152.124 





PRINT USING " 雷 桂 # 拝 xy1 
PRINT USING " 拉 #.# 拉 粧 .# : x%: y! 
PRINT USING " 圭 掛 # 料 料 . 幸 "Xi y1 
END 


【 結 果 】 


3568 152.12 
3568.0 152 .1 
+3568 152.124+ 








+ 付 き 表 示 


5 桁 と 小数 点 以下 2 桁 の 表示 
小数 点 以下 1 桁 の 表示 











【 プ ログ ラム 例 】 

x! = 13.259 人 

y! = 22.458 

2! = xi * y! 積 
PRINT USING " 振 . 拉 # 振 . 手提 許 xli y!: 21 表示 
PRINT USING " 畠 . 拉 の 名 計 光 馬 28 指数 表示 


END 


【 結 果 】 


13.259*22.458=297.771 
1 .326E+01* 2.246E+01= 2.978E+02 
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上 mmm >o ニ ューー ee ニー ニニ ニニ asa テニ ーー スー 


(30) 【 プ ログ ラム 例 】 


READ a% b% oe% - _ 本 
PRINT USING " 畠 引 人 # が 》 走 - チ : a%: bD%5 c% 一 表示 
END 

DATA 1989, 5,15 


【 結 果 】 
1989 ネン 5 が か ツ 15 = チ 


(51) 【 プ ログ ラム 例 】 









PRINT USING "& る & & & & & 7 ロビー が 712971 "が が 
FORi=11T06 表題 
READ a$, x!, y% デー タ を 読ん で 
28 = xX!* キ y% 表示 
PRINT USING “& & YY 押 れ 持 # 持寺 コ YY 畠 畠 持 れ 扶 aS: xi y%: 28 
NEXT i 


END 

DATA が 17, 125000,25,9-7'n, 73500,110 
DATA アリ 7.68700.25. デ 727 ルイ, 98500. 35 
DATA 7 my%.146000.58,7nyt' 人 145, 3560 


【 結 果 】 

ショ ウ ヒ ン タン カ コス ウ キン カ ~ ク 
ハ " ソコ ン \125,000 の 5 当 \3,125,000 
ウェ ジブ“ 日 \73,500 110 コ \8,085,000 
プー あみ \68,700 25 コ \1,717,500 
テ ~ ィ ス フ ?" レイ \98,500 35 コ \ ぎ 39.447.500 
フ " ロッ タ \146,000 58 コ \8,468,000 
メ 占 み に" \145 3560 コ \516,200 
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5 章 くり 返し 


FOR NEXT、WHTTLE- WEND, DO L00P 
WHILE、D0- エ 00P UNTTL.DO WHTLE-- 
00P, DO UNTI エ LO00P, EXTT FOR、REXTT DO 





【 例題 29】 FOR へ NEXT に よる 回 数 指定 の くり 返し 
くり 返し を 使っ て ABC…Z を 表示 する プロ グラ ム を つく れ . 











【 解 説 】 〇 FOR-NEXT に よる 回 数 指定 の くり 返し を し ます . 
① 次 の 書式 で 指定 回 数 の くり 返し を 行い ます . 
FOR 変数 = 初期 値 TO 終値 STEP 増分 
処理 
NEXT 変数 
③ 例 と し て FOR 1=5 TO 82 STEP 7 -ー NEXT 1 と する と まず 1i の 値 を 5 と し , 処理 を 
行い ます . 次 に 1 に 7 を 加え 1 の 値 は 12 と な り ま す . 終値 に 達し て いな けれ ば 再び 処理 を 行い ま 
す . 同様 に し て i の 値 を 5、 12、 19, 26,、 238, 40、47, 54、 61,、 68,、 75、 82,、 89 と な り ま 
す . 3 の 値 が 89 と 終値 を こと えん る と くり 返し を 終了 し ます . 
③ 初期 値 > 終値 の と き は 増分 (マイ ナス と すれ ば 変数 の 値 を 毎回 減少 させ て くり 返し を 行い ます . た 
と えば , FOR 1=20 TO 10 STEP -5 処理 NEXTi で は 1i の 値 を 820、25, 20, 15, 
10 と し て くり 返し を し ます . と の 場合 は 1 の 値 が 5 となり, 終値 より 小さ く な る と くり 返し を 終了 
必 家 字 
④ NEXT 1 の 部 分 は FOR の 中 で 使っ て いる 変数 名 と 同じ も ゃ の また は 省略 し ます . し た が っ て , 例 で 
は NEXT 1 また は REXT で す . 
⑤ FOR =500 TO 1000 STEP -50 の よう KC 論理 が 成立 し な いと き は , 1 回 も くり 返し は 行 
われ ませ ん . 
⑥ 本 題 で は ABC…Z の 表示 で すか ら i の 値 C 65, 66, 67…90 を つく っ て , その アス キー コー ド 
を 表示 すれ ば よい と と に な り ま す -. と の 例 の よう KC 変 数 の 値 を 処理 の 中 で 使う こと も で きま すし , 使 
わな く て も か まい ませ ん . 


【 プ ログ ラム 例 】 
FORi=65 TO 90 i が 65 から 90 まで くり 返し 
PRINT OHRS(1): 一 上 を アメ キー コー ド ょ する を まお 
NEXT i 
END 
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上 プロ グラ ム 編 





【 結 果 】 
ABCDEFGHIJKLMNOPQRSTUVWXYZ 





【 例題 30】 WHILE て WEND に よる くり 返し 
整数 を 人 力 し , 順に 表示 する プロ グラ ム を つく れ . た だ し , 0 が 入力 され た ら 0 を 表示 し て 
終わ る ゃ の と する . 











【 解 説 】 〇 WHILE-WEND に よる くり 返し を し ます . 

Q① WHTLE 条件 WEND は 条件 が 成立 し て いる 間 ~ の 処理 を 行い ます . 

③ し た が っ て , 例 解 で は WHILE xx すなわち x が 真 の 間 く り 返 し ます . くり 返し の 内 容 は * の 入力 
と その 表示 で す . 0 以外 の 入力 の と き は それ を くり 返し , 0 が 入力 され る と 0 を 表示 し ます . 次 に 
条件 が 偽 と な り ま すか ら 終 了 で す . 

③⑬ 最初 に x=1 と し て お か な いと WHILE x が 偽 と な っ て 処理 を 1 回 も せ ず に 終わ り ま す . 

(④ WHILE 1 - WEND で は 条件 が 永久 に 真 で すか ら 、 無限 の くり 返し と な り ま す . 後 で みる よう 
に 、 途中 か ら if 文 な ど を 使っ て ぬけ で る と と が で きま す . 


【 プ ログ ラム 例 】 
X = 1 一 一 * を 1 と する . 次 の WHTB 条件 を 真 と する 目的 


WHILE x * が 真 の 間 く り 返 し 
INPUT x 
PRINT x 

WEND 

END 


【 結 果 】 
? 5 5, 2、45、-87, 26, 0 を 入力 の 例 
5 
* 2 
2 
? 45 
45 
? -87 
-87 
? 26 
26 
? 0 
0 





【 例題 31】 DO へ て LOOP WHILE に よる くり 返し 
次 の デー タ を 読ん で 0 まで 表示 する プロ グラ ム を つく れ . 
ゲー 5。 各 る 8 る 9 0、 1 4 











【 解 説 】 〇 D0- エ LO0P WHILE に よる くり 返し を し ます -. 
① Quick BASIC は DOT00P と いう 汎用 くり 返し を 準備 し て いま す . これ は 4 つの 変形 を 持っ 
て いま す . 
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5 章 くり 返し 





くり 返し の 条件 条件 判断 の タイ ミン グ 


D0~L00P WHILE 条件 …… 条件 が 成立 し て いる 間 処理 の 後 
D0-L00P UNTIL 条件 …… 条件 が 成立 する まで 処理 の 後 
DO WHILE 条件 LO0P …… 条件 が 成立 し て いる 間 処理 の 前 
D0 UNTIL 条件 一 LO00P …… 条件 が 成立 する まで 処理 の 前 


② 本 例 は DO 処理 WHILE x<>0 です. 処理 を 行っ て か ら , * が 0 で な けれ ば くり 返し ます . デ 
ー タ が 0 の 場合 は x C 0 を 読み , x を 表示 し た 後 , * が 0 と な り 条 件 が 偽 と な っ て 終了 し ます . 
【 プ ログ ラム 例 】 


DO くり 返し 


デー タ を 読ん で 表示 








READ x 
PRINT x: 

LOOP WHILE x ぐ や 0 

END 

DATA 5, 2, 4, 8, 2, 9, 0, 1, 4 


【 結 果 】 


が 0 で な いと きく り 返 し 








【 例題 32】 DO へ て LOOP UNTIL 
数 x を 入力 し て , x の 階 乗 を 求め る プロ グラ ム を つく れ . 








【 解 説 】 ③ D0-L00P UNTIL の くり 返し を し ます . 

① D0~L00P UNTIL 条件 で は 条件 が 成立 する まで くり 返し を し ます . 条件 の 判断 は 処理 を すま せ 
た 後 で す . 

③ 本 例 で の t, y の 動き は 次 の よう に な り ま す . 


t ( 階 乗 の 値 ) y 
初期 値 。 1 5 (入力 し た 値 ) 
1 回 日 5 (1 *5) 4 (5-1) 
2 回 日 20 (5* ネ 4) 8 (4-1) 
3 回 日 60 (20* ぅ ③) 2 (5- 1) 
4 回 上 日 120(60* ネ る ) 1 (2-1) 
5 回 日 120(120* ネ 1) 0 (1-1) の 値 が 0 と な っ て くり 返し を 終了 


⑬ と の プロ グラ ム で は xt(C 0 を 入力 する と =y-1 で y の 値 は -1 と な り , 次 は -2, -5, … と な り 
ます . し た が っ て , ゞ が 0 に な り ま せん か ら 和 無限 に くり 返し が 続き ます . 積 t=t*y が 最初 に も =0 
と な る た め て も の 値 は 0 で す . 

④ また , x KC 実 数 で 小数 点 の つく 値 を いれ る と y の 値 が 0 と なり ませ ん か ら と れ $ ゃ 無限 に く り 返 さ 
れ ま す . た だ し , と の 場合 は も の 値 は オー バー フロ ー し て 終了 し ます . た と えば , x に 5・3 を 入力 
する と て t の 値 は 1*5.5*4 5*3.5*2.5* ネ 1 。5* ネ 0 。5 ネ ー0 .7 ネ ー1 7 ネー2 7*… と な り ま す . 
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【 プ ログ ラム 例 】 
も = 1 階 乗 の 入る 変数 の 初期 値 
INPUT x ェ の 入力 
用 泊 ェ の 値 を y KC 代入 
DO くり 返し 
t=t*y 積 1*y*(ー1 )*(ー2 )… 
導 っ マー1, y-2。 マー35、… を つく る 
LOOP UNTIL y = 0 ッ が 0 に な る と くり 返し を 終了 
PRINT x: "!=": 人 トーーーーーーーーーー 結果 の 表示 
END 
【 結 果 】 
? 10 10 を 入力 の 例 
10 != 3628800 





【 例題 33】 DO UNTIL へ LOOP 

&, b, c さん の 成績 は 各々 60, 80, 50 点 と する . 次 最低 点 を 入力 し 、x が 40 点 未 満 
の と き , 1 回 C 10 点 の げた を は か せる . と の 時 1 回 に つき a は 92 点 、b は る 点 ,c は 4 点 の 
げた を 上 の せ す る も の と する . 最低 点 が げた を 何 回 か は いて 40 点 以 上 と な っ た と き の x, a, 
b, o の 点 を 表示 する プロ グラ ム を つく れ . 











【 解 説 】 〇 ① DO UNTIL-L00P に よる くり 返し を し ます . 

① D0 UNTIL 条件 100P で は 条件 が 成立 する まで 処理 を くり 返し ます . 

③ 処理 の 結果 で 条件 を 判断 する 場合 は DO UNTIL~-L00P も D0-L00P UNTTL も 同じ で す . た だ 
し , D0- エ 100P へ 入る 前 の 値 で 条件 が 決ま る (本 例 は 入力 され た x の 値 で 条件 が 決ま る ) と き は こ 
の 2 つ は 意味 が 違い ます . 


メ =10 メニ 10 

DO UNTIL x>=5 D0 

処理 処理 

エ 00P 00P UNTTL x>=5 

ェ が 10 な の で x>=5 の 条件 が * が 10 で ゃ 処理 を 1 回 行っ て 
成立 する の で ルー プ 内 の 処理 は *>=5 が 成立 する の で L00P 
1 回 も し な いで 100PE の 次 へ 進む の 次 へ 進む 





⑬ x* の 点 を 25 と する と 次 の よう な 処理 と な り ま す . 


初期 値 1 回 目 の 処 理 る 回目 の 処理 
& 60 63 66 
80 82 84 
G 50 54 58 
3 る 25 55 45  (x>=40 の た め 終 了 ) 
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【 プ ログ ラム 例 】 
a = 60 a&, b, c の 初期 値 
b = 80 
c = 50 
INPUT x の 入力 
DO UNTIL x >= 40 一 一 一 一 イー テ >=40 に な る まで くり 返し 
% 三 メ す 10 一 一 ーー イー ェ WE.30 を 加え る 
a =a+ 3 一 ーー 一 ーー イーa (C 2 を 加え る 
b=b+ 2 一 一 一 一 一 トーb KC 2 を 加え る 
C=cC† $*ーーーー て P4 ま ぁ 
LOOP 
PRINT "x=": x。 "a=": aー イ ー テ , a, b, c の 表示 
PRINT "b=": b, "cec=" jc 一 
END 
【 結 果 】 
? 25 ェ =25 を 入力 の 例 
メ = 45 a= 66 
b= 84 c= 58 
? 50 ェ =50 を 入力 の 例 
x= 50 a= 60 
b= 80 c= 50 
? 35 ェ x=35 を 入力 の 例 
x= 45 a= 63 
b= 82 c= 54 





【 例題 34】 DO WHILE へ LOOP 
数 x を 入力 し て 2* を 求め る プロ グラ ム を つく れ . 











【 解 説 】 〇 DO WHILE~-L00P に よる くり 返し を し ます . 

① DO WHILE 条件 100P は 処理 の 前 に 条件 を 判断 し , 条件 が 成立 し て いる と き 処 理 を 行い く 
り 返 し を し ます . 条件 が 成立 し な いと き は LO00P の 外 へ 出 ま す . し た が っ て , 最初 に 条件 が 成立 し 
な いと , 処理 は 一 度 ゎ 実行 され ませ ん . 

②③ 本 例 で は x に 整数 を 入力 し , その 回 数 だ け 2 を 掛け ます . 整数 か ら 順 に 1 を ひい て いっ て , 値 が 
0 に な る と くり 返し の 終了 で す . 

⑬③ x に 0 が 入力 され る と 条件 が 不成立 の た め , 処理 は され ず も と の z%=1 が 生き て いて 2" が 1 と 
な り ま す . 

















【 プ ログ ラム 例 】 

Z% = 1 積 の 入る 変数 の 初期 値 

INPUT x% * の 入力 

y% = X% ッ に * を 代入 

DO WHILE y% や 0 くり 返し . ゞ が 0 で な いと きく り 返 す 
2% = 2%*2 2* を 求め る 
y% =y% - 1 

LOOP 

PRINT "2 "ix な ェ 2 結果 の 表示 

END 
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【 結 果 】 
? 6 6 を 入力 の 例 
2^ 6 = 64 
電 0 を 入力 の 例 
2^ 0 = 1 





【 例題 35】 FOR て NEXT の ネス ティ ング 
上 段 に 横 に 123…10 と か き , 縦 に 123…:10 と か き , その 交点 に 横 の 値 と 縦 の 値 の 積 を か く 
10*10 の 表 を つく る プロ グラ ム を つく れ . 
1 MM に ) 4…… 10 


2 4 6 8 20 
b) 1 12 一 4 と る の 積 
4 2 と る の 積 


10 と 10 の 積 


司 


10 20 30 40 100 











【 解 説 】 〇 FOR-NEXT 文 の ネス ティ ング を し ます . 
① 次 の 形 で 2 重 の くり 返し (ネス ティ ング ) を し ます . 





FOR i=1 TO 10 ミュ を 1 か ら 10 ま で くり 返す 
FOR j=1 TO 10 一 。 j を 1 か ら | を 1 と し j を 1、2、3. …10 
10 まで く . 
1 を 2 と し 3 を 1, 2。 5, …10 
り 返す ペ 
処 理 生 宮 導 之 し す 大 、 間 . 反 s:t0 
NEXT 3 





1 を 10 と し を 1、%, 353, …10 
NEXT i と する 





⑤ ネス ティ ング は 何 重 に な っ て も か まい ませ ん . た だ し , 中 の FOR-NEXT 文 は 外 の FOR NEXT 
の 中 完全 に 入っ て いな けれ ば な り ま せん . 
正しい 例 正しく な い 例 
FOR i=1 TO 5 ーー FORi=1 TO 5 
FOR j=5 TO 50 
FOR k=20 TO 100 一 





FOR j=5 TO 50 























ーーー FOR k=20 TO 100 
処 理 処 理 
NEXT k 1 1 NEXT j 
NEXT J ー NEXTk 
NEXT i L_ NEXTi 
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aa 
⑬ FOR NEXT 文 が ネス ティ ング され , NEXT が 並ぶ よう な 場合 は 次 の よう に する と と が で きま す . 
下 の 3 例 は いずれ も ゃ 正しい 使い 方 で す . 


FOR i=1 TO 10 FOR i=1 TO 10 
FOR j=32 TO 8 FOR j=2 TO 8 
処 理 処 理 
NEXT j NEXT 

NEXT 1 NEXT 


FOR i=1 TO 10 
FOR j=2 TO 8 











処 理 
NEXT ji 
【 プ ログ ラム 例 】 
FORi=11010 =1 か ら 10 まで くり 返し 
FOR j= 1T010 3=1 か ら 10 まで くり 返し 
PRINT USING " 災 ": 1* す の 表示 
NEXT 1 1*1。 1*2。 1*5,。 …1*10 
PRINT 2*1、 2*2。 2*3。 …2*10 
NEXT i : 
END 10*1, 10*2。 10*3。…10*10 を 表示 
【 結 果 】 


2 3 4 5 6 7 8 9 10 
4 6 8 10 12 14 16 18 20 
6 9 12 15 18 21 24 27 30 
8 12 16 20 24 28 32 36 40 
10 15 20 25 30 35 340 45 50 
18 24 30 36 42 48 54 60 
14 21 28 35 42 349 56 63 70 
16 24 32 40 48 56 64 72 80 
18 27 36 45 54 63 72 81 90 
20 30 40 50 60 70 80 90 100 


の の の ココ の の 品 よ の いら ピピ 
選 
1 に 】 


mm 





【 例題 36】 FOR へ NEXT か ら の 脱出 
1+2+8+…+ ミ が 1000 を と える 最初 の i の 値 と その と き の 和 を 求め る プロ グラ ム を つく れ . 











【 解 説 】 〇 EXIT FOR は FOR-NEXT ルー プ の 途中 で 脱出 し ます . 

① FOR = 初期 値 TO 終値 NEXT 文 の 中 で 1 が 終値 に な る 前 に 別 の 条件 で くり 返し を 終わ ら せ 
た いと と が あり ます . その た め に TTF 条件 THEN EXIT FOR と いう 形 が 使え ます . EXTT FOR 
は NEXT 文 の 次 へ 進み ます . 

②③ 本 例 で は 1+2+… の 和 だ が て t に 求め られ ます . と の 和 も が 1000 を と えた と き RXIT FOR で くり 
返し か ら 脱出 し ます . 

③ の 終値 は 充分 大 きく し て TTF 文 の 条件 に よる ルー プ の 脱出 より 先 に くり 返し が 終わ ら な いよ うに 
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し ます . 
④ 従来 の BASIC で は GOTO 文 あ る い は GOSUB 文 で ルー プ の 外 へ 脱出 し まし た . 
新しい 形 
FOR i=1 TO 100 
処 理 
ITF 条件 THEN RXTT ROR 
NEXT i 
条件 が 成立 する と こと こと へ 分 岐 する 
従来 の 形 
10 FOR i=1 TO 100 
( 処 理 
80 IF 条件 THENGOTO 100 
90 NEXTi 
100 | 
条件 が 成立 する と と と へ 分 岐 する 
【 プ ログ ラム 例 】 
t = 0 一 和 の 入る 変数 t の 初期 値 を 0 と する 


FOR i = 1 10 100 i を 1 か ら 100 まで くり 返し 
も = 池 平 提 t C 1+2+… を 求め る 
IF t > 1000 THEN EXIT FOR も が 1000 を こえ る と 脱出 
NEXT i 


PRINT "112+9+…・ ト "ドー t 合 果 の 表示 
END 





【 結 果 】 
1+2+3+・・・+ 45 = 1035 





【 例題 37】 EXIT DO に よる 脱出 
数 x を 入力 し て 表示 する プロ グラ ム を つく れ . た だ し , x が マイ ナス の と き , その 値 を 表示 
し な いで 終了 する も の と する . 











【 解 説 】 〇 REXIT DO で D0~- エ LO00P ルー プ の 途中 か ら 脱出 し ます . 
① D0ー エ 00P の 中 に TE 条件 THRN EXIT DO を 入れ る と 条件 が 成立 し た と き DO0-L00P か ら 
脱出 で きま す . 
③⑬ 本 例 で は 次 の よう に な り ま す . 
* (0 以上 の 値 が 入力 され て いる 間 は DO UNTIL x<0 の 条件 が 成立 し ませ ん か ら 入 力 と 表示 を 
72 ク 





5 章 くり 返し 
ーー 


くり 返し ます . 
x に マイ ナス 値 が 入力 され る と IF x<0 THEN EXTT DO に よっ て , 終了 し ます . つま り 表 示 を 


し な いで 終了 し ます . と の IF 文 が な いと , マイ ナス の ェ * の 値 を 表示 し た 後 DO UNTIL x<0 の 条 


件 が 成立 し て 終了 し ます 
と の 例 で は IT 文 は x が マイ ナス の と き , その 値 を 表示 する か し な いか の 違い で す . 

【 プ ログ ラム 例 】 

x ェ が マイ ナス に な る まで くり 返し 





DO UNTIL x く 0 
INPUT x * の 入力 
IF x く 0 THEN EXIT DO * が マイ ナス の と き 100P の 次 へ 脱出 
PRINT x ェ * の 表示 
L00P 
END 
【 結 果 】 
? 110 110、 25, -86 を 入力 の 例 
110 
? 25 
25 
? -86 





【 例題 38】 EXIT DO に よる DO へ LOOP_ UNTIL か ら の 脱出 
アル ファ ベッ ト 大 文字 A て J を 順に 表示 する プロ グラ ム を つく れ . 











【 解 説 】 〇 EXIT DO に よっ て DO0~t00P か ら 脱 出し ます . 

① D0~100E の 処理 の 中 に IF 条件 THEN EXTT DO を 入れ る と 条件 が 成立 し た と き D0 一 100 
E の 外 へ 腕 出 で きま す . 

②③ 本 例 で は D0~ エ 00P 条件 の 条件 は A, B, C… と 表示 し て いっ て 2 に な っ た と き で す . し か し , 途 
中 で TTF t>=75 THEN EXIT DO と し ます . すなわち , も が 75 ( け の アス キー コー ド ) の と き 


EXTT DO で ルー プ の 外 へ 脱出 し ます . すなわち , AーJ を 表示 し て 終了 し ます . 


【 プ ログ ラム 例 】 


t = 64 
DO 


t の 初期 値 を 64 と する 

くり 返し 、x$ が "z" で 終了 

(に 1 を 加え 65, 66, 67… を つく る , A, B、C… の アス キー コー ド 
も が 75 以上 に な っ た ら ル ー プ の 外 へ 脱出 














も = も 

IF t >= 75 THEN EXIT DO 

PRINT CHR$S(t) : 
LOOP UNTIL x*% = ダー 
END 


【 結 果 】 
ABCDEFGHIJ 
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演習 問題 」 


(32) アル ファ ベッ ト 小 文字 で gz か ら a まで 1 行 に 表示 する プロ グラ ム を つく れ . 
(33) "アイ ウエ オカ キク ケ コ "を 1 桁 お き K 1 行 に 表示 する プロ グラ ム を つく れ . 
(34) WHILE-WEND を 使っ て "ABC…Z" を 表示 する プロ グラ ム を つく れ . 
(35) 1 桁 の 整数 の 乱数 を つく り 表 示す る プロ グラ ム を つく れ . た だ し , 0 の と き 表 示し て 終了 す 
る も の と する . 
(36) 下 の デ ー タ を 読み , 1 行 に 表示 する プロ グラ ム を つく れ . た だ し , "E” の と き , それ を 表示 
し て 終了 する も の と する . 
デー タ 』T, 0, K, Y, 0, RB, H, 1, M, 
(37) 1142 せ 5 す … 中 が 5000 を と える 最初 の 和 を 求め る プロ グラ ム を つく れ . 
(38) 下 の デ ー タ を 読み 表示 する プロ グラ ム を つく れ . た だ し , 0 の 前 まで の デー タ と する . 
デー タ 5』5, 2 5 7 8,。 1, 2 8, 9, 1, 5, 8, 1 7 1. 
0, 5, 2, 9, 9 
(39) DO 、 UNTIL っ LO00P を 使い 、 x に マイ ナス の 値 が 入力 され る まで 値 を 入力 し , 表示 を くり 返 
す プ ログ ラム を つく 
(40) 数 * を 入力 し , x* を 表示 する プロ グラ ム を つく れ . x* が 10000 以上 と な っ た と き 終 了 す る 
も の と する . 
(41) 1000 か ら 下 の デー タ を 順に マイ ナス し て , 0 以下 と な っ た と き の 値 を 求め る プロ グラ ム を 
つく れ . 
デー タ 5120, 52, 456, 85, 92, 140, 858 
(42) 1+2+8+…+t を 行い 和 が 10000 を こえる 最小 の も の 値 と 和 を 求め ある プロ グラ ム を つく れ . 


. 解 答 」 


(32) 【 プ ログ ラム 例 】 


FOR i = 122 10 97 STEP -1 が 122 か ら 97 まで くり 返し 

PRINT CHRS(i) : ーー の 値 を アス キー コー ド と する 文字 を 表示 
NEXT i 

END 


【 結 果 】 


2ZyXwVutsrqponmlkjihgfedcba 





(535) 【 プ ログ ラム 例 】 





FOR i = 177 TO 186 が 177 か ら 186 まで くり 返し 

PRINT CHR$G): " 5- 十 : の 値 を アス キー コー ド と する 文字 を 表示 
NEXT i 
END 


アク ダイ 


(24) 


(35) 


(36) 


(37) 


【 結 果 】 


m イ な ます 湖 キチ グ ぢ ココ 


くり 返し の 条件 を 成立 させ る た め x=1 と する 
の 初期 値 "4" の アス キー コー ド 

ェ が 0 以外 の と きく り 返 し 

ゞ を アス キー コー ド と する 文字 の 表示 

y を 65, 66, 67。、…91 と する 

ェ を 91-y と する . y が 90 で z を 表示 し た 後 , 
マニ マッ +1 に より ッ が 91 と な り , x=91-y に より 
が 0 と な っ て 終了 する 





【 結 果 】 
ABCDEFGHIJKLMNOPQRSTUVWXYZ 














【 プ ログ ラム 例 】 
x = 1 くり 返し の 条件 を 成立 させ る た め x=1 と する 
WHILE x が 0 以外 の と きく り 返 し , 乱数 の 値 が 0 と な る と 終了 
x = INT(RND * 10) に 1 桁 の 乱数 を 代入 
PRINT x: x の 表示 
WEND - 
END 
【 結 果 】 
夏 人 二 隊 少 切 9 
【 プ ログ ラム 例 】 
区 三山 くり 返し の 条件 を 成立 させ る た め x=1 と する 
WHILE x * が 0 以外 の と きく り 返 し , x$ が "BE" の と き x が 0 で 終了 
READ x$ 1 文字 ずつ 読み x$ に 代入 
PRINT x$: x$ の 表示 
= ASC(x$) - 69 文字 の アス キー コー ドー69 を x 代入 . "E" の アス キー コ 
WEND ド が 69 の た め "E" の と き x が 0 と な る 
END 
DATA T, 0, K, Y,0,E,HLI.ME 
【 結 果 】 
TOKYOE 
【 プ ログ ラム 例 】 
t = 0 i の 初期 値 を 0 と する . 1 は 和 が 入る 





i を 1 か ら 100 まで くり 返す 


FOR 1 T0 100 
t+1*i i* の 和 を 求め る 
和 t > 5000 THEN EXIT FOR 和 が 5000 を こえ た ら 終 了 


NEXT i 
PRINT "1 7212~219372+… イ "| 1 の 2 ュー 結果 の 表示 


END 








中 中 
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(38) 


(39) 


(40) 





【 結 果 】 


172+272+372+・・・・+ 25 ^2= 5525 














【 プロ グラ ム 例 】 

DIM a(20) デー タ の 読み 込み 

FORi = 1 TO 20 | 20 個 分 読む 準備 を する 
READ ai) デー タ の 読み 込み 
IF aG) = 0 THEN EXIT FOR デー タ が 0 の と き ル ー プ 終了 

NEXT i 

FOR i =1TO20 20 個 分 表示 する 準備 を する 
IF aG) = 0 THEN EXIT FOR デー タ が 0 の と き 終 了 
PRINT ai): デー タ の 表示 

NEXT i 

END 

DATA 5, 2, 3, 7, 8, 1, 2, 3, 9, 1 

DATA 3, 8, 1, 7, 1, 0, 5, 2, 9, 9 


【 結 果 】 


5 2 3 7 8 1 2 3 9 1 3 8 1 


【 プ ログ ラム 例 】 


DO UNTIL x く <0 * が マイ ナス に な る まで くり 返し 
INPUT x * を 入力 
LOOP 


END 
【 結 果 】 


? 150 150、 0、 25、 -54 を 入力 の 例 
150 

? 0 

0 

? 25 

25 

? -54 

-54 


【 プ ログ ラム 例 】 
DO z が 10000 以下 の と きく り 返 し 


INPUT x * を 入力 
2Z=X* ネ X z(Cx* を 代入 


PRINT xi: 7 の 27: 5 * を 表示 











2 55 55, 96、150 を 入力 の 例 


? 96 

96 ^2= 9216 

? 150 

150 “2= 22500 
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(41) 【 プ ログ ラム 例 】 

















t = 1000 t の 初期 値 

DO t が 0 以下 に な る まで くり 返し 
READ x x に デー タ を 読み 込む 
t=t【-X も か ら *x を 順に ひい て いく 

LOOP UNTILt<=0 

PRINT t 結果 の 表示 

END 

DATA 120, 52, 456, 85, 92, 140, 358 

【 結 果 】 

-303 


(42) 【 プ ログ ラム 例 】 





t = z = 0 一 ーー 一 一 t と z の 初期 値 。 も は 1、 2 3, … を つく る . 2 は 1+2+8… の 和 ピ 和 
DO が 10000 以上 に な る まで くり 返し 
={t + 1 一 一 ーーーーーt を 1, 2 5… と する 

Z =Z+t z IC 1 2, 2… を 求め る 
LOOP UNTIL z >= 10000 
PRINT t: 2 一 ーーーーー 結果 の 表示 
END 
【 結 果 】 
141 10011 
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6 章 条件 分 岐 
TFPー THEN, TFT THEN- RBLSE ブロ ッ ク TE, 
END TF、 ELSRTTF、0R, AND, X0R, EQV、 TMP. NOT 





【 例題 39】 IF へ THEN 
文字 を 入力 し , "4” ま た は 先頭 が ”A" の 文字 列 の と き 表 示す る プロ グラ ム を つく れ . 











【 解 説 】 〇 TF-~THEN~ の 分 岐 を し ます . 


① TTF 条件 THEN 処理 に よっ て 条件 が 成立 する と 処理 を 行い 条件 が 不成立 の と き は 次 へ 進み ま 









す . 
| 成立 の と き の 処理 
IT 条件 THEN 処理 
不成立 の と き | 処理 が すん だ た 後 
次 の 命令 


②⑬ 本 例 で は 入力 され た 文字 の アス キー コー ド が 65 すなわち "A”" の と き , その 文字 を 表示 し ます . 


65 で な いと き と , 表示 が すむ と 終了 で す . 


【 プ ログ ラム 例 】 
INPUT x$ 一 ーーーーーーーーー- 文字 の 入力 
IF ASC(x$) = 65 THEN PRINT x$ 一 先頭 が "A" の と き 表 示 
END 

【 結 果 】 
? Tokyo Tokyo を 入力 の 例 
? Akasaka Akasaka を 入力 の 例 
Akasaka 





【 例題 40】 IF へ THEN へ ELSE ン 


数 を 入力 し , 100 以上 の と き ">=100 "と 表示 し , それ 以外 で は "<100” と 表示 する プロ グ 


を つる れれ 。 








【 解 説 】 〇 rr 条件 THEN- ELSE- の 分 岐 を し ます . 
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① 次 の 形 で 条件 に よっ て 分 岐 し ます . 
IF 条件 THEN 処理 1 ELSE 処理 2 


し 


条件 成立 の と き 








条件 成立 の と き 」 処 理 1 の 終了 
処理 2 の 終了 
次 の 命令 
③ 本 例 で は x C 値 を 入力 し , 100 以上 の と き は ">=100" と 表示 し , 100 未満 の と き は "<100* と 
表示 し ます . どちら ゃ 処理 が 終わ る と 次 の 命令 END で 終了 し ます . 
【 プ ログ ラム 例 】 


INPUT x 数 値 の 入力 
IF x >= 100 THEN PRINT ">=100" ELSE PRINT “<100" 一 2 条件 に 分 け て 表示 
END 





【 結 果 】 


? 1250 一 一 一 一 1250 を 入力 の 例 
>=100 


を 10 10 を 入力 の 例 
く <100 





【 例題 41】 ブロ ッ ク IF へ THEN へ ELSE 
数 x を 入力 し , 正 の と き は (Cx を 代入 し , 負 の と き は yC-x を 代入 し て マツ ゞ を 求め て 表示 
する プロ グラ ム を つく れ . 








【 解 説 】 〇 ブロ ッ ク IP~THEN-ELSE に よる 分 岐 を し ます 
① ブロ ッ ク TFT は 次 の 形 で 分 岐 を し ます -. 
IF 条件 THEN 


























処理 1 命令 群 ) … 条 件 が 成立 し た と き 行 う 処 理 
複数 の 命令 を か く と と が で きる 
ELSE 
処理 2 (命令 群 ) … 条 件 が 不成立 の と き 行 う 処 理 
複数 の 命令 を か く と と が で きる 
END ITF 


処理 1 処理 2 の 内 容 が 複雑 な 場合 , 簡 着 に 表現 で きま す . 
③ 処理 1 の 内 容 が 命令 1、 命令 2, … 命 令 5, 処理 2 の 内 容 が 命令 6, 命令 ?, … 命 令 9 で で き て 
いる と し ます . ブロ ッ ク ITF を 使う と 次 の よう に か け ま す . 従来 の BASIC と 比較 し て くだ さい 
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ブロ ッ ク IF 従来 の BASIC 例 ① 
TE 条件 THEN TP 条件 THEN 命令 1 : 命 令 2 : 命 令 3 : 命 令 4 
命令 5 ELSR 命令 6 : 命 令 ? 
命令 8 : 命 令 9 
命令 1 次 の 命令 
人 令 2 従来 の BASTC 例 ③ (メメ ※, (CXX う , へ ハム は 行 番号 ) 
命令 3 TE 条件 THRN XXx ELSB (COO) 一 一 一 度 XXX と 
〇 〇 つつ 分 け て 処理 先 を 示し て 分 岐 さ せる 
命令 4 党 災 ※※ 命令 1 
命令 5 命令 2 
ELSE 命令 5 
伺 令 6 全 令 4 
命令 7 合 令 5 
命令 8 GOTO 人 ハム ハハ -__ 処理 が すむ と GOTO 文 で 次 の 
命令 9 〇 OO 命令 6 命令 の 行 へ と ば す 
END TE 命令 7 
次 の 命令 命令 8 
命令 9 
次 余 余 次 の 命令 


③⑬ 本 例 で は 処理 1, 処理 2 の 内 容 が 各々 命令 1 つ で すか ら ブ ロッ ク ITF を 使 


ます . ブロ ッ ク IT が ある か ら と いっ て すべ て ブロ ッ ク TP を 使う 必要 は あり 
TF x>=0 THEN ゞ = ELSE ゞ ニー テ (ブロ ッ ク TEF を 使わ な い 例 ) 


【 プ ログ ラム 例 】 【 結 果 】 

INPUT x ーーーーー x の 入力 ? 135 

IF x >= 0 THEN x が 正 の と き 11.61895 
Y = se ? -547 

ELSE x が 負 の と き 23.38803 
りー 

END IF 

y = SQR(y) マソ の 表示 

PRTyーーー「 

END 


わな く て $ 簡 単に か け 
ませ ん . 


135 を 入力 の 例 


-547 を 入力 の 例 





【 例題 42】 ブロ ッ ク IF へ THEN 
次 の デー タ を 使 の 最も 文字 数 の 長い 都市 名 を 表示 する プロ グラ ム を つく れ . 


Chicago,Paris,Rome,London 
Boston,Tokyo,Pittsburgh,Bon 











【 解 説 】 〇 ブロ ッ ク TE-THEN を 使っ て 最大 値 を 求め ます -. 
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ZZZ 有 妥 妥 妥 有 有 ee 

① ブロ ッ ク T1F 条件 THEN 処理 END IF を 使い ます . ELSE は あり ませ ん . 
②③ 最大 値 を 求め る 方 法 は , 前 か ら 順 に 都市 名 を 読み その 文字 数 と max を 比較 し ます . 最初 C max= 
0 と し て お き 。 文字 数 が max より 大 きけ れ ば その 値 を 次 の max と し ます . 順に こと れ を くり 返す と 


max て 最大 値 が 入り ます . 
③ 具体 的 に みて み ま し ょ う - 








1 回 目 る 回 目 
max 値 (最初 は 0) 0 7 
文 名 ChioagOo Paris 
文字 数 7 5 
ma 7 ーーーー” 7 
ゞ $$ Chiocago Chiocago 
ae 7 回 目 
7 
Pi も tt も Sburgh 
10 
10 
P ュ ttS burgh 


(④ TE 1>=max THEN 
max ニ 1 
= 

END IF 


3 回 目 


Rome 

4 

7 
Chioago 


8 回 目 
10 
Bon 
) 
10 
PittS burgh 


の 部 分 が ブロ ッ ク IF 文 で す . 1>=max の と き 新 し い 1 を max に 入れ , 新しい 文字 列 x$ を y$C 代 
入 し ます . 条件 が 不成立 の と き , (新しい 都市 名 が その 前 の 最長 文字 数 の 都市 名 より 短い と き ) は 特 


KC 処理 は し ませ ん の で ELSE は あり ませ ん . 
【 プ ログ ラム 例 】 


max = 0 








FORi=11T08 


最大 値 が 人 る 





READ x$ 


8 文字 列 の 比較 を くり 返す 





文字 列 の 読み 込み 





1 = LEN(x$) 
IF 1 >= max THEN 


文字 数 





maX = 1 


| 文字 数 が 大 きい と き 1 を max, y$ を *xb と する 





Y$ = %$ 
END IF 
NEXT i 





トレ シーl_U UV!| | | | 





PRINT y$ 
END 
DATA Chicago, Paris, Rome, London 
DATA Boston, Tokyo, Pittsburgh, Bon 
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上 | プロ グラ ム 編 
ぴー グ ヤァ ター 
【 結 果 】 


Pittsburgh 





【 例題 43】 ブロ ッ ク IF の 多重 化 
数 * を 入力 し て 負 の と き ”x<=0”", 100 以下 の と き "0<x<=100", 1000 以下 の と き "100 
くく <=1000"、1000 を こと える と き "x>1000 "と 表示 する プロ グラ ム を つく れ . 











【 解 説 】 〇 ブロ ッ ク TTF の 多重 化 を し ます . 

① TTP 文 の 中 TT 文 を 使う こと が で きま す . これ を 多重 化 と いい ます . TE 文 は IP THEN- ELSE 
と THEN と BLSE を 持つ も の , TFTHRN と THRN の み の ゃ の が あり ます の で , あま り 複 術 に する 
と どの TTF と THEN,。 LSE が 対応 する の か わか ら な く な っ て し まい ます . 1 つの ヒン ト は 対応 する 
THRN と LSE の 字 下 げ の 位置 を 同じ こす る と と が 考え られ ます . 

③ 本 例 で は 次 の よう に 考え ます . 

まず , 数 値 が 負 か 正 か に 分 け ま す . 負 の 場合 は "x<=0" と 表示 し ます . 正 の 場合 は 100 以下 か 

100 を こえ る か に 分 け ま す . 100 以下 の と き は "0<x<=100" と 表示 し ます . 100 を こえ る と き 人 は 
1000 以下 か 1000 を こえ る か に 分 け ま す . 1000 以下 の と き は "100<x<=1000" と 表示 し , 10 
00 を と える と き は "x>1000 "と 表示 し ます . 


に 





100 を こえ る 














③⑬ ELSE の 中 で TFT 文 を 使う 場合 は ELSEIE を 使い ます . 
TE 条件 THEN 
処理 1 ーーーーーーーーー 条件 1 が 成立 する と き 行う 処理 
条件 1 が 不成立 の と き は 処理 2 か 処理 3 へ 進む 














ELSEIF 条件 2 THEN 
処理 2 ーーーーー 条件 2 が 成立 し た と き の 処理 








ELSE 














処理 3 ーーーー 条件 2 が 不成立 の と き の 処 理 
END IF 
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【 プ ログ ラム 例 】 
INPUT x ェ の 入力 
IF x <= 0 THEN x が 負 の と き の 表 示 
PRINT “x<=0~ ー 
ELSEIF x <= 100 人 が 正 で 100 以下 の と き の 表 示 
PRINT "0<x<=100" 
ELSEIF x <= 1000 THEN が 100 を と を 1000 以下 の と き の 表 示 
PRINT "100<x<=1000= 
ELSE 人 が 1000 を こと える と き の 表 示 
PRINT "x>1000": 
END IF 
END 
【 結 果 】 
? 358 358 を 入力 の 例 
100<x<=1000 
? 3590 3590 を 入力 の 例 
*>1000 
? -500 -500 を 入力 の 例 
メ < く =0 





【 例題 44】 OR 条件 
トト の デー タ の うち "R" で 始ま る か , "T" で 始ま る 都市 名 を 表示 する プロ グラ ム を つく れ . 
デー タ j』Chioago, Paris,、 Rome, London、 Boston, Tok ゞ O, 


PittSburgh、 Bon 





【 解 説 】 IT 条件 の 条件 に 0R を 使っ て 分 岐 し ます . 
① TFT 文 の 条件 に は 関係 演算 子 と 組合 わせ と し て 下 の 議 理 演算 子 が 使え ます . 


関係 演算 子 の 種類 論理 演算 子 
に 等 し い NOT 否定 
> 大 きい AND 論理 積 
く 小さ きい OR 葵 理 和 
く > 等 し く な い XOR 排他 的 論理 和 
く = 以下 EQV 同値 
>= 以上 TMP 包含 


③ 今回 は 0R を 使い ます . 0R は ど ち ら か の 条件 が 成立 すれ ば 全体 の 条件 が 成立 し ます . 
TE 条件 1 OR 条件 2 THEN 処理 1 ELSE 処理 2 

条件 1 また は 条件 2 が 成立 すれ ば 処理 1 を , どちら ゃ 不成立 な ら 処 理 る を 行い ます . 
OR 条件 は 次 の よう に な り ま す . 


《⑯ 
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XIYIXORY 
補 用 宇 定 
T は TRUE 
TIF M F は FALSE 
FIT BN 
FIF F 
【 プ ログ ラム 例 】 
FORi=1108 8 回 の くり 返し 
READ x$ x$( に デー タ を 読む 





IF ASC(x$) = 82 OR ASC(x$) = 84 THEN PRINT x$ 押 当 | bu また は T で 始ま っ て いる と き 表 示 
NEXT i 

END 

DATA Chicago, Paris, Rome, London 

DATA Boston, Tokyo, Pittsburgh, Bon 


【 結 果 】 


Rome 
Tokyo 








【 例題 45】 AND 条件 
下 の デ ー タ の うち 6 文字 以下 で 最後 に "n "を 持つ 文字 列 を 表示 する プロ グラ ム を つく れ . 
デー タ jChioago, Paris、Rome, London、 Boston、 Tokyo、 


Pittsburgh, Bon 








【 解 説 】 〇 AND 条件 を 使っ て 分 岐 し ます . 
① TT* 条件 の 中 C AND を 使う と 2 つの 条件 が 同時 に 成立 し た と き 分 岐 し ます . 
TFT LEN(x$)=<6 AND RIGHT$(x$)="n" THEN PRTNT xx$ 


条件 1 同時 条件 る 
(6 文字 以下 ) 成立 (最後 が "n”) 





②③ AND 条件 は 次 の よう に な り ま す . 



































XIYIXANDY 
才 呈 T 
T エ は TRUE 
R 記 | F F は FALSE 
F | T F 
FIF F 
【 プ ログ ラム 例 】 
FORi=1108 
READ x$ 
IF LEN(x$) <= 6 AND RIGHTS(x$, 1) = "n" THEN PRINT 5 文字 数 が 6 以下 で 
NEXT i 最後 が "nm" の と き 表 示 


7 ラダ 


PC あー キー ウー ュー ニー 


6 章 条件 分 岐 


ーー= ト ーー っ ーー ニー ニュ テ ーー ニー ニー ニュ ュー テーーーoserwe 


END 
DATA Chicago, Paris, Rome, London 
DATA Boston, Tokyo, Pittsburgh, Bon 


【 結 果 】 


London 
Boston 
Bon 





【 例題 46】 NOT 条件 
下 の デ ー タ の 中 で 文字 数 が 7 以下 で な い 文 字 列 を 表示 する プロ グラ ム を つく れ . 


デー タ j』 Chicago,Paris,Rome,London,Boston,Tokyo,Pittsburgh,Bon 











【 解 説 】 〇 TROT 条 件 を 使い ます . 
① TFP の 条件 の 中 に NOT を 使う と その 条件 で は な い 場 合 分 岐 し ます . 
TP NOT(LEN(x$)=<7 ) THEN PRINT x$ 





文字 数 が 7 以下 で は な い 
和 定 
TF LEN(x$)>7 THEN PRINT x$ と 同じ 
③ NOT 条件 は 次 の よう C な り ま す . 














X | NOT X 
T は TRUE 
T F F は FALSE 
F 和 
【 プ ログ ラム 例 】 
FORi=1108 
READ x$ 
IF NOT (LEN(x$) <= 7) THEN PRINT x$ 一 一 文字 数 が 7 以下 で な いと き 表 示 
NEXT i 
END 


DATA Chicago, Paris, Rome, London 
DATA Boston, Tokyo, Pittsburgh, Pon 


【 結 果 】 
Pittsburgh 








【 例題 47】 XOR 条件 

次 の デー タ の うち 4 文字 以下 か , 最後 C"n" を 持つ 2 条件 の どちら か 1 つが 成立 し , 他 が 成 
立 し な い 文 字 列 を 表示 する プロ グラ ム を つく れ . 

デー タ 』Chioago, Paris,、 Rome、 London、 Boston、 TokyOo, 1ttS burgh。 Bon 
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【 解 説 】 〇 XOR 条 件 を 使っ て 分 岐 し ます . 

① XOR は 条件 1 XOR 条件 2 で 一 方 の 条件 が 成立 し , 他方 が 成立 し な い 場 合 に 真 で す . し た が っ て , 
本 例 で は 文字 数 が 4 以下 で 最後 が "nm”" で な じい 場合 か , 文字 数 が 4 を と えて 最後 が "n” の 場合 で す . 

Chioago は 文字 数 は 4 以下 で は あり ませ ん し 最後 が "nm" で は あり ませ ん . 条件 1. 2 と も に 不 成 

立 で すか ら 偽 で す . Rome は 文字 数 が 4 文字 以下 で , 最後 が "nm" で は あり ませ ん か ら 真 で す . Lond 
on は 文字 数 が 4 以下 で は あり ませ ん が 最後 が "mn" で すか ら 真 で す . Bon は 文字 数 は 4 以下 で す が , 
最後 が "nm" で すか ら 条 件 1、 2 が と も KC 成立 する た め 偽 で す . 

②③ XOR 条件 は 次 の よう に な り ま す . 
































xly | XXORY 
+ T | F 
T は TRUE 

ィ T F | + F は FALSE 
Flr T 
Flr F 

【 プ ログ ラム 例 】 

FOR i=1T08 

READ x$ 


IF LEN(x$) で = 4 XOR RIGHTS(x$, 1) = "nm" THEN PRINT x$ 一 文字 数 が 4 以下 で 最後 が "n"* 
NEXT i 以外 か また は 文字 数 が 4 を こと 
END え 最 後 が "n" の と き 表 示 
DATA Chicago, Paris, Rome, London 


DATA Boston, Tokyo, Pittsburgh, Bon 


【 結 果 】 


Rome 
London 
Boston 





【 例題 48】 EQYV 条件 

次 の デー タ を 使い , 文字 数 が 4 以下 で 最後 に "n”" を 持つ も のか, 文字 数 が 4 以下 で は な く , 
最後 に "n”" を 持た な いも の を 表示 する プロ グラ ム を つく れ . 

デー タ 』 Chicago,Paris,Rome,London,Boston,Tokyo,Pittsburgh,Bon 











【 解 説 】 〇 REQV 条件 で 分 岐 し ます . 
① TEQV は 条件 1,. 2 が と も KC 成立 する か と も ゃ に 不成立 の と き 真 で す . し た が っ て , 本 例 で は 文字 数 
が 4 以下 で 最後 に "n” を 持つ か , 文字 数 が 4 を こえ 最後 に "n" を 持た な いと き 真 で す . 両方 成立 す 
る 文字 列 は Bon, 両方 不成立 は Chicago, Paris, Tokyo, Pittsburgh で す . この 両 ケ ー ス 
が 真 で す . 片側 が 成立 し , 片側 が 不成立 は Rome,. London、 Boston で す . これ は 偽 と な り ま す . 
③ TEQY 条件 は 次 の よう に な り ま す . 
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ーー 
































双 |YIXEQOVY 
TIT 宙 
T は TRUE 
TIF F F は FALSE 
RT【 守 F 
FIF T 
【 プ ログ ラム 例 】 
FOR i=1TO8 
READ x$ 
IF LEN(x$) <= 4 EQV RIGHTS(X$, 1) = "nm" THEN PRINT x$ 一 一 文字 数 が 4 以下 で 最後 が "n" 
NEXT i か また は 文字 数 が 4 を と え 最 
END 後 が "nm" で は な いと き 表 示 


DATA Chicago, Paris, Rome, London 
DATA Boston, Tokyo, Pittsburgh, Bon 


【 結 果 】 


Chicago 
Paris 
Tokyo 
Pittsburgh 
Bon 





【 例題 49】 IMP 条件 
次 の デー タ を 使い , 文字 数 が 4 以下 で 最後 に "n" を 持た な い ゃ の 以外 を 表示 する プロ グラ ム 
を つく れ . 


デー タ j』 Chicago,Paris,Rome,London,Boston,Tokyo,Pittsburgh,Bon 








【 解 説 】 〇 IME 条件 で 分 岐 し ます . 

① TMP は 条件 1 が 真 で 条件 2 が 偽 の と きのみ 偽 で 、 人 他 は すべ て 真 で す . 本 例 で は Rome だ けが 偽 で 
す . 

③ IMP 条件 は 次 の よう に な り ま す . 





























XxlYIxIMPy 
| 害 T 
T は TRUE 
TIF F F は FALSE 
FlT 
FIF 
【 プ ログ ラム 例 】 
FORi=1108 
READ x$ 
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IF LEN(x$) <= 4 IMP RIGHTS(x$, 1) = "nm" THEN PRINT x$ 一 文字 数 が 4 以下 で 最後 が "n" 
NEXT i で な いも ゃ の 以外 を 表示 
END 
DATA Chicago, Paris, Rome, London 
DATA Boston, Tokyo, Pittsburgh, Bon 


【 結 果 】 


Chicago 
Paris 
London 
Boston 
Tokyo 
Pittsburgh 
Bon 





【 例題 50】 論理 演算 子 の 組合 わせ 
次 の デー タ を 使い , 文字 数 が 5 以下 で 最後 が "nm" の も の か , 最後 が "o" の も ゃ の を 表示 する プ 
ログ ラム を つの つくれ. 


デー タ 』 Chicago,Paris,Rome,London,Boston,Tokyo,Pittsburgh,Bon 











【 解 説 】 〇 論理 演算 子 を 組合 わせ て 条件 判断 し 分 岐 し ます . 
① 第 1 の 条件 は 文字 数 が 5 以下 で か つ 最 後 が "nm" の も の で す . この 条件 に あう も ゃ の は Bon の み で す . 
③ 第 る の 条件 は 最後 が "o" で す . こと の 条件 と あ う ゃ の は Chiocago, Tokyo で す . 
③ 条件 1 と 条件 4 の 0R は Bon, Chioago, Tokyo と な り ま す . 
【 プ ログ ラム 例 】 


FORi=11T08 

READ x$ 

[ = LEN(x$) 

p$ = RIGHT$(x$, 1) 

IF (し <= 5 AND p$ = "n") OR (p$ = "o") THEN PRINT x$ 一 文字 数 が 5 以下 で 最後 が "n" 
NEXT i か また は 最後 が "Po" の も の を 
END 表示 
DATA Chicago, Paris, Rome, London 
DATA Boston, Tokyo, Pittsburgh, Bon 


【 結 果 】 


ChicagO 
Tokyo 
Bon 


. 演 習 問題 」 


(43) 下 の デ ー タ を 読み "P" で 始ま る 都市 名 を 表示 する プロ グラ ム を つく れ . 
デー タ Chioago, Paris, Rome, London, Boston、 Tokyo, Pittsburgh, Bon 
(44) (45) の デー タ を 使い 最後 が "n" で 終わ る 都市 名 を 表示 する プロ グラ ム を つく れ . 
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>u く 5 マーーーーーー ツ www ツ ーー… ツ ーーーー…ーーー ツ ーーーーーーーーーーーmーーーーーーーーーー 一 
(45) (43) の デー タ を 使い 5 文字 で か つ "P” で 始ま る 都市 名 を 表示 する プロ グラ ム を つく れ . 
(46) (43) の デー タ を 使い 6 文字 以上 の と き 都 市 名 と 文字 数 を , それ 以外 で は 都市 名 の み を 表示 
する プロ グ ジ ム を つく ぐれ: 

(47) アル ファ ベッ ト AZ, a~z を 入力 し , H と それ より 後 の 文字 の と き は その まま 表示 し , そ 
れ よ り 前 の と き は 小文字 に し て 表示 する プロ グラ ム を つく れ . 

(48)  x を 入力 し て 正 の と き ゞ を 入力 し **y を 表示 し , x が 負 の と き は x" を 表示 する プロ グラ ム 
を つく れ . 

(49) xx を 入力 し て , * が 正 の と き a を 2 b を 5, co を 3 とし, x* が 負 の と き a& を 4, b を 2, oc 
を 7 と し て y=ax"+bx+o を 求め て 表示 する プロ グラ ム を つく れ . 

(50) (48) の デー タ を 使い 文字 数 が 最も 少な い 都 市 名 を 表示 する プロ グラ ム を つく れ . 

(51) (45) の デー タ を 使い "B" ま た は "P" で 始ま る 都市 名 を 表示 する プロ グラ ム を つく れ . 

(52) 文字 列 を 入力 し , 下 の デ ー タ の 中 に あれ ば 表示 し , な けれ ば "END" と 表示 する プロ グラ ム を 
つく れ . 

デー タ jTokyo、 0saka, Nagoya, Fukuoka, Sapporo, Okayam& 

(53) (43) の デー タ を 使っ て , 文字 数 が 4 未満 か 8 を こえ る も の を 表示 する プロ グラ ム を つく 

(54) (458) の デー タ を 使っ て , 文字 数 が 4 以下 かみ 8 を と える も の で か つ 最 後 が "nm" の も の を 表 
示す る プロ グラ ム を つく れ . 

(55) (45) の デー タ を 使っ て , 文字 数 が 6 を こえ て 最後 が "n" の も の か , 文字 数 が 6 を こえ , 
最後 が "nm" で な いも の を 表示 する プロ グラ ム を つく れ . 

(56) (43) の デー タ を 使っ て , 文字 数 が 6 を こえ て Chiocago で は な いも の を 表示 する プロ グ 








ラム を つく れ . 
[ 解 答 」 
(45) 【 プ ログ ラム 例 】 
FORi=1108 デー タ の 読み 込み の くり 返し 
READ x$ x$(C デ ー タ を 読み 込む 
IF ASC(x$) = 80 THEN PRINT x$ *P" で 始ま る と き x$ を 表示 
NEXT kvm 和 0ENMeenv 和 人 


END 
DATA Chicago, Paris, Rome, London 
DATA Boston, Tokyo, Pittsburgh, Bon 


【 結 果 】 


Paris 
Pittsburgh 
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(44) 【 プ ログ ラム 例 】 











FORi=1TO8 デー タ の 読み 込み の くり 返し 
READ x$ x$ に デー タ を 読み 込む 
IF RIGHT$(x$, 1) = "nm” THEN PRINT Lo ucciei き 表示 

NEXT i 

END 


DATA Chicago, Paris, Rome, London 
DATA Boston, Tokyo, Pittsburgh, Bon 


【 結 果 】 


London 
Boston 
Bon 


(45) 【 プ ログ ラム 例 】 














FORi=1108 デー タ の 読み 込み の くり 返し 

READ x$ x$C デ ー タ を 読み 込む 

1 = LEN(x$) x$ の 長 さ を 1 代入 

IF1=5 AND ASC(x$) = 80 THEN PRINT 人 還 還 2 が 5 で 先頭 文字 が "P" の と き 表 示 
NEXT i 
END 


DATA Chicago, Paris, Rome, London 
DATA Boston, Tokyo, Pittsburgh, Bon 


【 結 果 】 


Paris 


(46) 【 プ ログ ラム 例 】 
FORi=11T08 8 回 の くり 返し 
READ x$ x$ に デー タ を 読む 
IF LEN(x$) >= 6 THEN PRINT x$: LEN(x$) ELSE PRINT x$ 一 一 6 文字 以上 の と き 都 市 名 と 文字 数 を 
NEXI 1 一 一 ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 表示 , それ 以外 は 都市 名 の み 表 示 


END 
DATA Chicago, Paris, Rome, London 
DATA Boston, Tokyo, Pittsburgh, Bon 


【 結 果 】 


Chicago 7 
Paris 

Rome 

London 6 
Boston 6 
Tokyo 
Pittsburgh 10 
Bon 








(4?) 【 プ ログ ラム 例 】 





INPUT x$ ェ x$ の 入力 
IF x$ >= “H' THEN PRINT x$ ELSE PRINT CHRS(ASC(x$) + 32) 一 一 - "H" と それ より 後 の と き 表 示 , それ 
END 以外 は 小文字 C し て 表示 


ちと (// 


(48) 
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【 結 果 】 

2 A A を 入力 の 例 

に 1 

『 了 P を 入力 の 例 

選 

? d d を 入力 の 例 

d 

【 プ ログ ラム 例 】 

INPUT x 一 ーーーーーー* の 入力 


IF x >= 0 THEN * が 正 の と き 
INPUT y y を 入力 し て , x*y を 表示 
PRINT x*y 


ELSE no が 負 の と き 
PRINT x*x*X 





x* を 表示 

END IF 
END 
【 結 果 】 
? 6 ェ に 6, y=7 を 入力 の 例 

し 

42 

? -88 ェ * に -88 を 人 入力 の 例 

-681472 
【 プ ログ ラム 例 】 
INPUT x * の 入力 
IF x >= 0 ーー デー ティ オ ナ ア ピ ピ ワ ピッ の き 

a=2:b=5:c=3 a&=2、 b=5, oc=3 と する 
ELSE 0 が 負 の と き 
a=4:b=2:c=7 &=4、 b=2、 o=7 と する 

END IF 
Y=a*x*x+b* ま x+c 一 一 一 ーー テーax'+bx+o を 求め る 
PRINT ai "x 21": bi "x+": ci "= ャ ーー 一 結果 の 表示 
END 
【 結 果 】 

の 柱 8 を 入力 の 例 

2 x^2+ 5 x+ 3 = 171 

? -3 -5 を 入力 の 例 

4 x^2+ 2 x+ 7 = 37 
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(50) 【 プ ログ ラム 例 】 


min = 20ー 一 一 一 一 ーーーー ザ 最小 の 文字 の 都市 名 を 求め る 





FORi=1108 
READ x$ 
] = LEN(x$) 
IF 1 <= min THEN 文字 数 が その と き の 最 小 値 m より 小さ けれ ば 
min = 1 その 文字 数 を m に 代入 、 その と き の 都 市 名 を 
y$ = x$ y$ic 代 入 
END IF 
NEXT i 
PRINT y$ 
END 


DATA Chicago, Paris, Rome, London 
DATA Boston, Tokyo, Pittsburgh, Bon 


【 結 果 】 


Bon 


(51) 【 プ ログ ラム 例 】 
FORi=1108 本 デー タ の 読み 込み の くり 返し 












READ x$ x$ に デー タ を 読み 込む 
IF ASC(x$) = 66 THEN "B" で 始ま る と き 表 示 
PRINT x$ 
ELSEIF ASC(x$) = 80 THEN "P" で 始ま る と き 表 示 
PRINT x$ 
END IF 
NEXT i 





END 
DATA Chicago, Paris, Rome, London 
DATA Boston, Tokyo, Pittsburgh, Bon 


【 結 果 】 


Paris 
Boston 
Pittsburgh 
Bon 


(52) 【 プ ログ ラム 例 】 


INPUT x$ x$ の 入力 
ェ *$=y$ で 終了 , 同じ デー タ が あれ ば ルー プ の 外 へ 出る 


DO UNTIL x$ = y$ 
READ y$ デー タ を 読む 
IF y$ = "End" THEN x$ = y$ デー タ を 読ん で "END" に な れ ば x$ を "END" に し て ル 

















LOOP ー プ の 外 へ 出る 
PRINT x$ ェ $ の 表示 
END 


DATA Tokyo, 0saka, Nagoya 
DATA Fukuoka, Sapporo, 0kayama 
DATA End 


ィ アイク 


で ーー 


(53) 


(5) 
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Fee キー ニャ ーー ペー ニュ ーー し テニ ーー ニー ペー ニー テッキー ーー デー ューーー ン ニャ ーー ーーーーー= こ ーー 


【 結 果 】 


? Sapporo Sapporo を 入力 の 例 
Sapporo 


? Kyoto Kyoto を 入力 の 例 
End 


【 プ ログ ラム 例 】 


FORi=1TO8 
READ x$ 
1 = LEN(x$) 
IF (1 く 4) OR (] > 8) THEN PRINT x$ーー 文字 数 が 4 未満 か 8 を こえ る も の を 表示 
NEXT i 
END 
DATA Chicago, Paris, Rome, London 
DATA Boston, Tokyo, Pittsburgh, Bon 


【 結 果 】 


Pittsburgh 
Bon 


【 プ ログ ラム 例 】 


FORi=1108 

READ x$ 

1 = LEN(x$) 

p$ = RIGHTS(x$, 1) 

IF (1 < 40R 1 > 8) AND (p$ = "n") THEN PRINT x$ 一 一 文字 数 が 4 以下 か 8 を こえ 
NEXT i か つ 最 後 が "nm" の と き 表 示 
END 
DATA Chicago, Paris, Rome, London 
DATA Boston, Tokyo, Pittsburgh, Bon 


【 結 果 】 


Bon 


【 プロ グラ ム 例 】 


i=1108 
READ x$ 
IF LEN(x$) > 6 EQV RIGHTS(x$, 1) = "n" THEN PRINT x$ 一 廊 字 数 が 6 を こと え 最 後 が "n* 


NEXT i また は 文字 数 が 6 以下 で 最後 


END 


が "n" で な いと き 表 示 


DATA Chicago, Paris, Rome, London 
DATA Boston, Tokyo, Pittsburgh, Bon 


【 結 果 】 


Paris 
Rome 
Tokyo 
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(56) 【 プ ログラム 例 】 


FORi=1T08 

READ x$ 

IF LEN(x$) > 6 AND NOT (x$ = "Chicago") THEN PRINT x$ 一 好 数 が 6 を こえ か つ 
NEXT i Chicago で な いと き 
END 表示 


DATA Chicago, Paris, Rome, London 
DATA Boston, Tokyo, Pittsburgh, Bon 


【 結 果 】 


Pittsburgh 
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7 章 多分 岐 


SELECT CASE, END SELECT 





【 例題 51】 SELECT へ CASE に よる 多分 岐 
数 値 を 入力 し , 1 の と き "A"、 2 の と き "B"、 85 の と き "C"、 4 の と き "D",、 5 の と き "E”" を 
表示 し , それ 以外 で は "END" と 表示 する プロ グラ ム を つく れ . 











【 解 説 】 〇 SELECT-CASE に よる 多分 岐 を し ます . 
① 条件 に よっ て 分 岐 先 を 3 つ 以 上 に し た い 場 合 SELECTーCASE を 使い ます . 
③ 本 例 は 数 値 を 人 力 し , 1、 2, 3, 4, 5 の 場合 と それ 以外 の 場合 の 6 つの 分 岐 を し ます . その 形 は 
次 の と お り で す . 








SELECT x% ーーーーーーーー x*% の 値 に よっ て 分 岐 先 が 決ま る 
CASE 1 x% が 1 の と き 
PRTINT"A" 一 *% が 1 の と き の 処 理 . 複数 の 文 を 書い て よい . 終了 す 
る と END SELECT の 次 へ 進む 
CASE 2 ーーーーーーーー x% が 2 の と き 
PRINT"B" 一 
CASER 2 ーー ーーーーー x% が 8 の と き 
PRINT"C" __ 」 
CASE 4 一 x% が 4 の と き 
PRTNT"D"ー ーー 





CASE 5 II 
PRTNT"E" 

CASE ELSE 1 2, 3 4, 5 以外 の と き 
IPe 


END SELECT ー _ SRELECT 文 の 終了 
③ x% が 1 の と き は CASE1 へ 進み "A” を 表示 し て END SELECT の 次 へ 進み ます . PRINT"A" の 部 
分 が 1 の 場合 の 処理 内 容 で す . こと は 複数 の 文 を か く と と が で きま す . x% が 2, 5, 4, 5 の 場合 は 
各々 CASE2。 CASE5, CASE4, CASE5 へ 分 岐 し . 各々 の 処理 を し ます . 
④ x% が 1, 2, 5, 4。 5 以外 で は CASE ELSE へ 分 岐 し , その 処理 を し ます . *% が 1, 25, 4 
5 し か な けれ ば CASER ELSE は いり ませ ん が , x% が 15 以外 が あっ て , CASE ELSE が な いと エエ 
ラー と な り ま す . 


7 プイ 5 


上 | プロ グラ ム 編 





⑱ 従来 の BASIC で は 0N~GOSUB また は ON~-GOTO で か く と と が で きま す が , か な りみ に くい も 
の と な り ま す . 
0N-GOSUB を 使っ た 例 
( 〇 〇 な ど は 行 番 号 を 示す ) 
ON x% GOSUB (CX) 
/ 
〇 〇 PRINT"A" 
RETURN 
XX PRINT"B" 
RETURN 
人 へ 人 へ ERINT"07 
RETURN 
PRINT"D" 
RETURN 
@@ PRINTE" 
RETURN 
人 ム ム PRINT"END" 
RETURN 





※※、 ハ ハハ 。 | | 多 の 人 人 人 人 


0N-GOTO を 使っ た 例 
( 〇 〇 な ど は 行 番号 を 示す ) 
ON x% GOTO (X) XXxX,、 ハハ [| の @.、 人 44 
画 園 / 
〇 つつ PRINT"A" 
GOTO 画 画 
xx PRINT"B" 
GOTO 画 画 
人 人 PRINT"G" 
GOTO 画 男 
[ 十 ] PRINT"D" 
GOTO 画 画 
@@ PRINT"E" 
GOTO 画 較 
ム ム PRINT "END" 
GOTO 画 男 
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"= デー、 mo 本 

















【 プ ログ ラム 例 】 
INPUT x% 一 一 ーーーーーーーー 整数 の 入力 
SELECT CASE x% 一 ーー *x% の 値 に よっ て 分 岐 
QASE 1 一 一 x% が 1 の と き 
PRINT "A 
CASE 2 ーー 一 ーーーー テ x% が 2 の と き 
PRINT "BT 
CASE 3 一 一 一 ーーーーー- x% が 3 の と き 
PRINT “C 
CASE 4 一 一 ーーーーx% が 4 の と き 
PRINT "D" 
CASE 5 一 一 ーーーーーー*% が 5 の と き 
PRINT "FE 一 
CASE ELSE ーーーーーーT- *% が 1 一 5 以外 の と き 
PRINT "END" ニ 一 
END SELECT 一 ーーーーーーーー 分 岐 の 終了 
END 
【 結 果 】 
? 3 8 を 入力 の 例 
C 
? 5 5 を 入力 の 例 
E 
人 凍 15 を 入力 の 例 
END 





【 例題 52】 文字 に よる 多分 岐 を し ます 

文字 を 入力 し 。 "4A" の と き "App1e", "B" の と き "Bench", "C" の と き "Chair"、"D”" 
の と き "Desk"、 "EE の と き ”Eleoction",、 それ 以外 で は "END" と 表示 する プロ グラ ム を つく 
れ . 








【 解 説 】 〇 SELEOCT 文字 CASE に よっ て 多分 岐 を し ます . 
① 文字 を 条件 と し て 多分 岐 を し ます . と の 場合 は CASE "A" の よう に 文字 を "" で か と み ま す . あと 
は 数 値 の 場合 と 同じ で す . 

















【 プ ログ ラム 例 】 
INPUT x$ x$ の 入力 
SELECT CASE x$ 一 ーーーーーーーーー *$ の 値 に よっ て 分 岐 
CASE "A" ーーーーーーーー ィ ー x$ が "A" の と き 
PRINT “Apple" 
CASE "B"ーーーーーーーーーー $ が "B" の と き 
PRINT "Bench" 
CASE "Cー ニ ーーーーーーーーーーー x$ が "C" の と き 
PRINT "Chair" 
CASE "D"ーーーーーーーーーー 丁 x ゃ が "D" の と き 
PRINT "Desk"ーーーーー 
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CASE ii x$ が "BE”" の と き 
PRINT "Election-^ 





CASE ELSE 9 x$ が AE 以外 の と き 
PRINT "END" 
END SELECT 一 一 一 ーーーーーー- 分 岐 の 終了 
END 
【 結 果 】 
? B B を 入力 の 例 
Bench 
? a a を 入力 の 例 
END 





【 例題 83】 範囲 で 分 岐 

数 値 を 入力 し , 1000 以上 の と き "x>=1000", 500 か ら 999 まで の と き "500<=x<10 
00"、 300 か ら 499 の と き "500<=x<500"、100 か ら 299 の と き "100<=x<300"、0 か 
ら 99 まで の と き ”0<=x<100”", それ 以外 で は "マイ ナス "と 表示 する プロ グラ ム を つく れ . 
た だ し , 上 の 表示 の うち は 各々 実際 に 入力 され た 値 を 表示 する も の と する . た と えば , 125 
が 入力 され れ ば "100<=125<300”" と 表示 する も の と する . 








【 解 説 】 〇 CASR の 後 C 範 囲 を 指定 し ます . 

① CASE IS >=1000 で は 値 が 1000 以上 の 場合 の 分 岐 先 で す . TS >=1000 が 1000 以上 を 示 
し ます . 比較 演算 子 と し て >、 >=, <, <=, <>,。 = が 使え ます . た だ し , = は た と えば , CASE 5 
の よう に 単に 値 を か くだ け で すみ ます . 

③ CASE 500 TO 999 は 500 か ら 999 の と き の 分岐 先 で す . 値 1 TO 値 2 で 値 1 か ら 値 2 
まで の 範囲 を 指定 で きま す . た だ し , 必ず 値 1 く < 値 る で ある 必要 が あり ます . 

【 プ ログ ラム 例 】 

INPUT x% 一 ーーーーーーーーーーーーーーーー テ % の 人 力 




















SELECT CASE x% *% の 値 に よっ て 分 岐 
CASE IS >= 1000 ee ig 以上 の と き 
PRINT x%: “>=1000" 
CASE 500 T0 2 の と き 
PRINT. "500<=": x%: "<1000" 
CASE 300 TO 499 二 | x% が 300-499 の と き 
PRINT "300<=": x%: "<500" 
CASE 100 10 < き 
PRINT “100<=": x%: "<300" 
CASE 0 T0 99 ェ % が 0-99 の と き 
PRINT "0<=": xX%: ・q00" 一 一 
CASE ELSE ェ % が 0 未満 の と き 
PRINT “マイカ” 
END SELECT 分 岐 の 終了 
END 
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【 結 果 】 


? 3563 1563 を 入力 の 例 
1563 >=1000 


? 48 48 を 入力 の 例 
0<= 48 <100 


? -1200 -1200 を 入力 の 例 
マイ ナス 





【 例題 54】 CASE に 複数 の 範囲 を 指定 し ます 

整数 を 入力 し , 負 の と き は その 値 を , 1 か ら 10, 20 か ら 50, 40 か ら 50 の と き は 2 乗 の 
値 , 11 か ら 19, 21 か ら 29, 531 か ら 259 の と きけ 平方根, 50 を こと える と き は その 値 を 表示 
する プロ グラ ム を つく れ . 














【 解 説 】 〇 CASE に 複数 個 の 範囲 を 指定 し ます . 
① CASE 1 TO 10,20 TO 30.40 TO 50( に よっ て 1 か ら 10, 20 か ら 30, 40 か ら 
50 の 5 つの 男 囲 を 指定 する と と が で きま す . 














【 プ ログ ラム 例 】 
INPUT x% x% の 入力 
SELECT CASE x% *x% の 値 に よっ て 分 岐 
CASE IS <= 0 x% が 0 以下 の と き 
PRINT x% ー | 


CASE 1 10 10, 20 TO 30, 40 T0 50 x% が 1 一 10,。 20-80, 40 て 50 の と き 
PRINT x%* x% 


CASE 11 TO 19, 21 10 29, 31 T0 っ 21-29, 51ー59 の と き 
PRINT SQR(%) 








CASE IS > 50 *% が 50 より 大 きい と き 
PRINT x% 
END SELECT 分 岐 の 終了 
END 
【 結 果 】 

? 25 25 を 入力 の 例 

625 

人 は 5 15 を 入力 の 例 

3.872983 

? -85 -85 を 入力 の 例 

-85 
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【 例題 55】 多分 岐 で す サブ ルー チン を 呼び 出す 

次 の メニ ュー 画面 を 表示 し , 1 の と き 和 , 2 の と き 差 , 3 の と き 積 , 4 の と き 商 , それ 以外 で 
は 再 入 力 す る プロ グラ ム を つく れ . た だ し , 数 値 が 入力 され た ら 演 算 す サブルーチン へ 各々 分 野 
し て , 数 を 2 つ 入 力 し て 演算 し , 結果 を 表示 する も の と する . 





副 強 暗 半 
四国 | 上 | 
や 心 OD ロ 


1 か 


Wy 








【 解 


説 】 ⑨ 多分 岐 と サブ ルー チン で メイ ン ル ー チ ン を すっ きり させ ます 


① メイ ン ル ー チ ン は 入力 され た 値 1 こ 4 と それ 以外 で 各々 多分 岐 する も の で す .【 例 題 51】 と 同じ 構 
造 で す . 

③ 各々 の ocase で は eoa11 a1(a,b,c)~a4(a,。b,c) で サブ ルー チン a1~a4 を 呼び 出し ます . 

③ 結果 は メイ ン ル ー チ ン の 最後 で 表示 し ます . 

【 プ ログ ラム 例 】 


DECLARE SUB al (x!, y!, 2 
DECLARE SUB a2 (x! y! 2 
DECLARE SUB a3 (x! y!, 20) 
DECLARE SUB a4 (x!, yl 20) 

















PRINT " 和 =1" メニ ュー 画面 
PRINT " 差 =2" 
PRINT " 積 =3" 
PRINT " 商 =4" 
PRINT 
re: INPUT "1 か ら 4": x% x% の 入力 
SELECT CASE x%ーーーーーーー ーー *% の 値 で 分 岐 
CASE 1 1 の と き 
d⑬ ="+" 由 
CALL al1(a, b, c) 一 
CASE 2 一 一 ーーーーーーーーーー ィ ー る の と き 
d5 ="ー 
CALL a2(a, b, c) 一 一 
CASE 3 一 一 一 ーーーーー ザ 5 の と き 
d⑬ =" ポ 
CALL a3(a, b, c) 一 一 
CASE 4 一 ーーーーーーーーーー 4 の と き 
d⑬ = ミイ / 
CALL a4(a, b, c) 一 一 
CASE ELSE 1-4 以外 の と き 再 入力 
GOTO re: 
END SELECT 
PRINT ai: d$: b: "=":c 一 結果 の 表示 


END 
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【 結 





SUB a1 (x, y, 2) サブ ルー チン a1 
INPUT x,y 
2. ミ XY 

END SUB 


SUB a2 (x, y, 2) 





INPUT x, y 
2Z=XーY 
END SUB 





サ プ ブル ー チ ン a2 





SUB a3 (x, y, 2) サブ ルー チン a5 
INPUT x, y 
2=X*Y 

END SUB 


SUB a4 (x, y, 2) 







INPUT xy 
2Z=%X/y 
END SUB 
果 】 
和 。 =1 
差 =2 
積 =3 
商 =4 
1 か ら 49? 3 
人 
5 * 3 = 20 
和 。 =1 
差 =2 
積 =3 
商 =4 
1 か ら 4? 2 
0) 
7 - 3 = 4 
和 =1 
差 =2 
積 =3 
商 =4 
1 か ら 49? 4 
? 99,3 
99 3 = 33 
和 。 =1 
差 =2 
積 =3 
商 = ニ 4 
1 か ら 4? 8 
1 か ら 49? 7 
1 か ら 49? 1 
2 0,.24 
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サブ ルー チン 84 


3 を 入力 し , 5, 4 を 入力 し た 例 


2 を 入力 し , 7, 8 を 入力 し た 例 


4 を 入力 し , 99, 3 を 入力 し た 例 


8,7,1 を 入力 し , 50,24 を 人 入力 し た 例 


7 章 多分 岐 





プロ グラ ム 編 





(演習 問題 」 


(57) 数 を 入力 し , 1 の と き "first",、 2 の と き "seocond",、 3 の と き "third” と 表示 し , それ 
以外 で は 入力 され た 値 を 表示 する プロ グラ ム を つく れ . 

(58) 文字 を 入力 し , "A" の と き "ABC",。 "B" の と き "BCD"、 "C" の と き "CDE", それ 以外 の と 
き "XYZ” と 表示 する プロ グラ ム を つく れ . 

(59) 整数 を 入力 し , 65 か ら 90 の と き は その 値 を アス キー コー ド と する 文字 を , 97 か ら 122 ま 
で の と き は その 値 を アス キー コー ド と する 文字 を 表示 し , それ 以外 で は "アル ファ ベッ ト イガ 
イ ” と 表示 する プロ グラ ム を つく れ . 

(60) 整数 を 入力 し て 1 の と き , サブ ルー チン aa を 呼び 出し "ニュ ウリ ョ クチ =1", 2 の と き , サ 
ブル ー チ ン bb を 呼び 出し "ニュ ウリ ョ クチ =2”"、 それ 以外 の と き は サブ ルー チン co と 呼び 出 
し "リュ ウリ ョ クチ ハ 1,2 イガ イ ” と 表示 する プロ グラ ム を つく れ 

(61) 和 整数 x% を 入力 し , 1-5 の と き x%? ( 階 乗 69 の と き 2x% (累乗 )、 10-15 の と き , 
1 か ら x% ま で の 和 を 求め それ 以外 は 再 入 力 す る プロ グラ ム を つく れ . 

(62) 英文 字 列 を 入力 し , "January" の と き は "January ハ 31 ニチ ", "Feburary" の 
と き "Ferbruary ハ 28 ニチ ",。…"June" の と き "June ハハ 20 ニチ "と 表示 し , 
その 他 の と き は 再 入 力 す る プロ グラ ム を つく れ . 

(63) アル ファ ベッ ト の 大 文字 また は 小文字 数字 また は カナ を 1 つつ 入 力 し , 小文字 の と き " ア 
ルフ ァ ベ ッ ト コモ ジ ", 大 文字 の と き " ア ルフ ァ ベ ッ ト オオ モジ ", 数 字 の と き " ス ウジ " 
カナ の と き "カナ" と 表示 する プロ グラ ム を つく れ . 





[ 解 答 」 
(57) 【 プ ログ ラム 例 】 【 結 果 】 
INPUT x% 一 ーー x% の 入力 2 1 1 を 入力 の 全 
SELECT CASE x% first 
CASE SR き 
PRINT " first" ? 3 3 を 入力 の 例 
CASE 2 2 の と き INN 
PRINT Sg ニー ? 120 20 光 
CASE 3 3 の と き 120 1 
PRINT "third" 
CASE ELSE 18 以 外 の と き 
PRINT x% 
END SELECT 


END 
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(58) 


(59) 


(60) 


7 章 多分 岐 














【 プ ログ ラム 例 】 【 結 果 】 
INPUT x$ 一 ーーーーーーー 一 x$ を 入力 2 A ょ を 大 力 の 全 
SELECT CASE x$ ABC 
CASE ーー 2 f f 
PRINT "ABC" WW を 入力 の 例 
CASE "B"ーーーーーーー ィ イーB の と き 
PRINT "BCD' ニ 一 
CASE "Cーーーーーーー ィ G の と き 
PRINT “CDE 一 一 
CASE ELSE 一 一 AーG 以外 の と き 
PRINT "XYZーーー 
END SELECT 
END 
【 プロ グラ ム 例 】 
INPUT %% x% の 入力 
SELECT CASE x% 
CASE 65 10 90 65~-90 の と き 
PRINT CHRS(x% 
CASE 97 10 し の と き 
PRINT CHRS(x%) 
CASE ELSE その 他 の と き 
PRINT "7M77 パ ッ ト 砂 ヤ ーー 
END SELECT 
END 
【 結 果 】 
? 69 69 を 入力 の 例 
E 
? 115 115 を 入力 の 例 
る 
? 500 500 を 入力 の 例 


アル ファ ヘット イカ ガ ~ イ 


【 プ ログ ラム 例 】 


DECLARE SUB aa () サブ ルー チン の 宣言 
DECLARE SUB bb () 
DECLARE SUB cc () 


INPUT x%ーーーーーーーーーx% の 入力 
SELECT CASE x% 
CASE 1 1 の と き 
CALL aa 
CASE の と き 
CALL bb 
CASE ELSE 1 っ る 2 以外 の と き 
CALL cc 
END SELECT 
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中 プロ グラ ム 編 
PPPZSPPP22 和 ee 


END 
SUB aa サブ ルー チン aa 


PRINT “= ュ 99 ョ 7 た 1" 
END SUB 





SUB bb 電 二 oe 導 の 
PRINT "=39937 た 2" 
END SUB 





SUB cc が ルー デ チ デジ '9G 


PRINT “=9 ョ 7 チ 1.2 位 イ イ 
END SUB 





【 結 果 】 


回 る を 人 力 の 例 
ニュ ウリ ヨク チ = 2 


彰 1 1 を 入力 の 例 
ニュウ リョ クチ = 1 


? 453 453 を 入力 の 
ニュ ウリ ョ クチ 八 1。2 イ が イ 例 


(61) 【 プ ログ ラム 例 】 














re: INPUT x%% x% の 入力 
SELECT CASE x% x% の 値 で 分 岐 
CASE1TO5 1-5 の と き 
2% = 1 z% に 階 乗 を 求め る 
FOR i% = x% 10 1 STEP -1 
24 = 2%* 1j% | 
NEXT i% | 
PRINT 2% 一 一 一 一 一 ーーーーー 
CASE 6 T0 ーー か ら 9 の と き 
PRINT 2 ~x%% 2** を 表示 
CASE 10 10 15 10 か ら 15 の と き 
w% = 0 wa% に 和 を 求め る 


FOR i% = 1 T0 x% 
wa% = wa%+ 1j% 

NEXT i% 

PRINT wa% 


CASE ELSE 1-15 以外 の と き 再 入力 
GOTO re: 上 em 


END SELECT 
END 





5 ダイ 


(6%) 


(65) 


【 結 果 】 


? 9 9 を 入力 の 例 
512 
? 4 4 を 入力 の 例 
24 
? 14 14 を 人 入力 の 例 
105 


? 0 85 を 入力 し , 再 入力 で 1 を 入力 の 例 


【 プ ログ ラム 例 】 


re: INPUT x$ 文字 列 の 入力 
SELECT CASE x$ 一 一 ーーーーーーーーーー 文字 列 *$ に よっ て 分 岐 


CASE『" Jamuaryーーーーーーー 本 "January" の と き 
PRINT "January ) 31 - ヂ | 


CASE "February" February'" の と き 
PRINT "February / 28 チー 


CASE peh ーー ニー ニー ニー WW" き 
PRINT "March ) 31 - ヂ 

CASE いい Ps き 
PRINT "April ) 30 - デ 

CASE "May" *May "の と き 
PRINT "May / 31 チーーー 

CASE "June" June" の と き 
PRINT "June ) 30 ーー 


CASE ELSE その 他 の と き 再 入力 
GOTO re: 


END SELECT 
END 

















【 結 果 】 


? May May を 入力 の 例 

May 八 31 こ チ 

? February February を 入力 の 例 
February 八 28 こ チ 


【 プ ログ ラム 例 】 


re: INPUT x$ 文字 列 x$ の 入力 
xX% = ASC(x$) x$ の アス キー コー ド を xx%K 代 入 
SELECT CASE xx% 一 ーーーーーーーーーー 一 xx% の 値 で 分 岐 


CASE 48 TO 57 48~-57 の と き ("0"ー"9" の と き ) 
PRINT "29 ゲ “ 


CASE 65 10 90 ーー ニー ニョ ニー 0 ("A"ー"" の と き ) 
PRINT "7M77 パ ゲット 材 t ゲ “ 


CASE 97 TO 122 97 一 122 の と き ("a" 一 "2" の と き ) 
PRINT "777^ ッ ト エエ ゲ | 


CASE 166 10 し dd の と き (" ア "ー" ン "の と き ) 
PRINT "7" 
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CASE ELSE | その 他 の と き 再 入力 
GOTO re: 


END SELECT 
END 


【 結 果 】 
? 65 一 一 ーーーーーーー- 65 を 入力 の 例 
スウ シ ~ 


? Aー 一 一 一 ーーーーーーーー A を 入力 の 例 
了 アル ファ ヘッ ト オオ モ シ ~ 


? メーーーーーーーーーー テ を 入力 の 例 
アル ファ ヘッ ト コモ シ ~ 


3 ジニーーーーー ニ ーーーーー ニ ーー デーン 和 あ 入 思 の 例 
カナ 
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8 章 配 列 


DTM, OPTTON BASE 





【 例 題 56】 配 列 
F ド の デー タ を 配列 &%(0 )~a%(9) に 代入 し て , a%(5) と a%(7) を 表示 する プロ グラ ム を 
つく 才 。 
デー タ 57, 5, 2, 9, 7。 8, 8, 4。 1, 0 











【 解 説 】 ⑨ 1 次 数 値 配列 を 使い ます . 
① DIM a%(10) で a%(0), a%(1), …a%( 9 ) の 10 個 の 整数 型 配列 変数 を 確保 し ます . これ は 
DTM a(10) AS INTEGER と 宮 言 する と と も で きま す . 
⑬ FOR i=0 TO 9 
READ a%(1) 
NEXT i 
に よっ て デー タ を 順 (C a&%(0), a%(1), …&%(9) へ 読み 込み ます . 1 度 デ ー タ が 配列 変数 に 代入 
され れ ば あと は どれ で も 任意 に と り 出 せま す . 
③⑬ PRINT a%(5) ja%(7) に よっ て a%(5) の 3 と a%(7) の 4 を 表示 し ます . 
④ a%(10) の 10 を 添字 と いい 最大 32,768 まで 使え ます . 整数 型 の 場合 々 バイ ト を 使用 し ます か 
ら a%(32,768 ) は 約 65k バイ ト 使用 し ます . 


【 プ ログ ラム 例 】 
DIM a%(10) ーー 一 配列 a%(0)-a%( 9 ) の 宣言 
i を 0-9 まで ルー プ 


FOR i=0109 
READ a%(i) a%( 0 )~a%(9) に デー タ を 読み 込む 
NEXT 1 


PRINT a%(5) : a%(⑰) a%(5) と a%(7 ) の 表示 
END 








【 結 果 】 


3 4 





【 例 題 57】 添字 を 任意 に 決定 

添字 を -5 か ら 5 まで と する 配列 c%( ) を 宜 言 し て , 下 の デ ー タ を 順に 代入 し , c%( 0 ) の 値 
を 表示 する プロ グラ ム を つく れ . 

デー タ 』3。 8。 7, 2 1 9。 6, 55, 2. 7 











75Z 


中 プロ グラ ム 編 





【 解 説 】 〇 添字 の 範囲 を 任意 (C 決 め ま す . 
① DIM o%(-5 TO 5) は oc%(-5), c%(-4)。c%(-8), …c%(0)。 c%(1)。…o%(5) の 11 
同 の 領域 を 確保 し ます . 
Quiock BASTO で は 添字 の 下限 と 上 限 を 自由 設定 で きる よ うに な っ た 他 マ イナ ス を 使う と と ゃ 
で きま す . て の 便利 さ に つい て は 次 の 【 例 題 58】 で 示し ます . 
【 プ ログ ラム 例 】 

DIM c%(-5 TO 5) 一 ーーーーーー 配列 c% の 宣言 


FORi=-5105 e%(-5) 一 o%(5) に デー タ を 読み 込む 
READ c%G⑪) 
NEXT i 


PRINT c%(0) : 一 一 ーーーーーーー oc\( 0 ) の 表示 
END 
DATA 3,8,7, 2,1, 9, 6, 3. 5, 2,7 




















【 結 果 】 


9 





【 例 題 58】 x を 3 か ら 十 3 まで y=x*+xPTx を 求め る 
*+x'+ 到 の 値 を * を -3 か ら +3 まで 増分 を 1 と し て 求め 配列 y%( ) に 格納 し て 表示 する プロ 
グラ ム を つく れ . 








【 解 説 】 〇 添字 に マイ ナス 値 を 使っ て 関数 の 値 を 求め ます . 

① XY+k'+x の 値 を * を -8 か ら +3 まで に つい て 求め ます . この と き , 結果 を 入れ る 配列 を y%( ) と 
する と TOR x=-5 TO 8 の くり 返し で x を -83, -2。-1, 0, 1, 2 5 と し て 。 関数 の 値 を 求め , 
それ を ゞ %(x) に 代入 で きま す . 添字 と し て *x を その まま 使え ます か ら 非 常に 簡単 で す . 

③ 添字 を 0 て 6 と し て 求め る 従来 の BASIC で は 次 の よう に な り ま す . 
FOR x=-5 TO 5 














Y(x+3)=x~ 5+x~2+ て +2 に よっ て 添字 を 0, 1, 2, …6 と し て いる . 

NXET 1 

【 プ ログ ラム 例 】 

DIM y%(-3 10 3) 配列 y%(-8)~y%(3) の 宮 言 

FORx =-3103 * を -5 か ら 3 まで xy+x*+x を 求め て y%(-5)~y%(3) に 代入 
鞭 0 ぇ キキ メト ォ キ ャ キッ | 

NEXT x 

FOR x = -3T03 y%( -8)~y%(3) の 表示 
PRINT y%%): テ ーーー フー | 

NEXT x 

END 

【 結 果 】 


-21 -6 -1 0 3 14 39 
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【 例 題 59】 1 次 元 文字 列 配列 と オプ ショ ン ベ ー ス 
文字 列 配列 b$(1)~b$(5 ) に 下 の デー タ を 読み , 最初 と 最後 を 表示 する プロ グラ ム を つく れ . 


デー タ 』Yamada, Osaki, Ueda、 Yoshino, Honda 











【 解 説 】 〇 文字 列 配列 と オプ ショ ン ベ ー ス を 使い ます . 

① OPTTON BASE 1 (こよ っ て , 配列 の 湊 字 を 1 か ら と り ま す . し た が っ て , DIM b$(5) は b$ 
(1), b$(2)…b$(5) の 5 個 の 領域 を 確保 し ます - 

② 配列 の 添字 0 を 使わ な い 方 が わか りや すい 場合 が あり ます . その 場合 は 0PTION BASE 1 と す 
る と メモ リ が 無駄 に な り ま せん . 


【 プ ログ ラム 例 】 


OPTION BASE 1 添字 を 1 か ら 始 め る 

DIM b$(5) 配列 b$(1)~b$(5 ) の 宣言 

FORi=1105 b$(1)-b$(5) に デー タ を 読み 込む 
READ b$(i) 」 


NEXT i 
PRINT b$(1): " ": b$(5) ーーーーーー b$( 1 ) と b$(5 ) の 表示 
END 

DATA Yamada, 0saki, Ueda, Yoshino, Honda 


【 結 果 】 


Yamada Honda 

















【 例 題 60】 2 次 元 配列 
F ド の デー タ 組 を 2 次 元 配列 に 読み 表示 する プロ グラ ム を つく れ - 


デー タ j JAPATN TOKYO0 
USA WASHIGTOR 
UK エ LONDON 
TRANCE PAR1TS 
TTALY. ROME 


GERMANY BON 











【 解 説 】 〇 2 次 元 配列 を 使い ます - 
① DTM x$(6, 2) は る 次 元 の 文字 列 配列 (6 行 2 列 ) 
を 次 の よう に と り ま す . 6*2=12 個 の 領域 を 確保 し ます - 


0 1 





0|x$ (0.0)|x$ (0.1) 





1|x$ (1⑪0)|x$ (1.1) 





2|x$ (2.0)]x$ (2.1) 





3|x$ (3.0)]x$ 31) 





4 |x$(40)|x$ (41) 





5|x$ (5.0)|x$ (5.1) 
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ーー 一 ーーー ニ ーー て て て て て ァ _ て ノー 


②③ ORi=0 TO 5 
FOR j=0 TO 1 
READ x$(i,}) 
NEXT j 
NEXT i 


と れ が 2 次 元 配列 へ て の デー タ の 読み 込み の 普通 の 仕方 で す . 


③ xW(6,2) は 2 次 元 で す が x$(5,8,8,9,4) の よう に 5 次 元 の 配列 も 使え ます. 最大 60 次 元 ま 


で 使え ます . 3 次 元 配列 の 例 を 【 例 題 62】, 4 次 元 の 例 を 【 例 題 63】 で 示し ます . 


【 プ ログ ラム 例 】 
DIM x$(6, 2) 





FORi=0TO5 


2 次 元 配 列 の 宣言 





FOR j= 0 10 1 
READ x$(i, j) 
NEXT j, i 


] 配列 xr$ に デー タ を 読み 込む 





FORi=0TO5 


表示 





FORj=0T01 
PRINT USING "& 
NEXT j 
PRINT 


Wi xi 1): 





NEXT i 

END 

DATA JAPAN, TOKYO, USA, WASHINGTON 
DATA UK,LONDON, FRANCE, PARIS 
DATA ITALY, ROME, GERMANY, BON 





【 結 果 】 
JAPAN TOKYO 
USA wASHINGTO 
UK LONDON 
FRANCE PARIS 
ITALY ROME 
GERMANY BON 

【 例 題 61】 数 値 と 文字 の 配列 





下 の 表 を 配列 代入 し , 金額 を 求め て , 金額 を 含む 表 を 表示 する プロ グラ ム を つく れ . 


























商品 数 量 | 単価 ( 千 円 ) 
が N 信 コウ | 25 458 
ワー プロ 48 216 
CD 21 142 
VTR 30 98 
ビデ オカ メラ | 13 126 
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上 ee ベー と ー ニ ー キ raceeracwocr o+ nsa 





【 解 説 】 〇 数 値 と 文字 列 の 配列 を 考え ます . 

① 数 値 と 文字 列 の 混合 し た 配列 を つく る と と は で きま せん . 一 度 す べ て 文字 と し て 文字 配列 に 代入 し , 
数 値 と し た い 数 字 の 部 分 は 文字 を 数 値 化し て 使い ます . 

③⑬) 全体 を 文字 列 配列 s$(5,3 ) に 代 人 し ます . 0 列 目 は 商品 名 1 列 日 は 数 量 , 2 列 目 は 単価 で す 
た だ し , 3 列 目 C 金 額 を 代入 する た め 宮 言 と し て は s$(5,4) と し ます . 

③ s$(0,0)~s$(4,2) に 文字 と し て デー タ を すべ て 読み 込み ます . 

④ 金額 の 項 は 第 1 列 と 第 2 列 の 積 で す . し た が っ て , 第 1 列 と 第 2 列 を 読み 出し て , それ を 数 値 化 
し て 積 を 求め , 次 に それ を 文字 化し て 3 列 日 に 格納 し ます . 
た と えば , s$(2,38) は 次 の よう KC 求め ます 

s$(2,5)=STR$(VAL( s$(2,1) ) *VAL( s$(2,2) ) ) 




















1 数 備 人 し て 
積 を 求め る 
文字 化す る 

【 プ ログ ラム 例 】 
DIM s$(5, 4) 一 ーーーーーーーーーーーーーーーーー ーーーーー 配列 の 宮 言 
FOR i = 0 104 0~4 行 に つい て デー タ 読 み 込み と 代入 

FORj=0102 0~2 列 を 配列 へ 読み 込む 

READ s$(i, j) 中 

NEXT j 

98l。 = 向 且 NMEMGNKOx 1U) WMMR0。 0 一 の の 生ま jkre36(ELretA 
NEXT i 
PRINT "ya ルッ 29 り 39 。 多 や が が ーーーーー イ 結果 の 表示 
FORi=0TO4 

PRINT USING "& & ": s$(i, 0): 

FORj=1TO3 

PRINT USING " 畠 , 提 #  ": VAL(sS(i, 1): 

NEXT j 
PRINT 
NEXT i 還 齋 
END 


DATA / 717. 25, 458,7-7 ロ , 48, 216, CD, 21, 142 
DATA VTR, 30,98, ビ テ 配 7,13.126 


【 結 果 】 
ショ ウ ヒ ン スウ リョ ヨウ タン カ キン カ ~ ク 
ハ ? ソコ ン 25 458 11,450 
ウェ ブツ 48 216 10,368 
CD 21 142 2.982 
ん Wi 30 98 2.940 
ヒ ~ テ ~ オ カメ ラ 13 126 1,638 
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【 例 題 62】 3 次 元 配列 
次 の 表 を 3 次 元 配列 に 代入 し , 次 CC, 地区 名 を 入力 し て , その 地区 の デー タ を 表示 する プロ 
グ ウ 必 を の る 天 
地 区 | 商品 数 量 金 額 利 盆 Re 
パソ コ | 350 500 170 100 
東京 
ワー プロ 650 800 120 180 
パソ コン 250 300 110 120 
大 阪 
ワー プロ 400 500 100 110 
パソ コン 210 230 104 115 
名 古屋 
ワー プロ 350 450 105 109 



































【 解 説 】 〇 5 次 元 配 列 を つく り ま す . 
① 8 次元 配列 は "地区 "の 項 , "商品 "の 項 , "数 量 , 金額 , 利益 , 1 人 当たり 売上 "の 項 の 8 項目 で 
す . 第 1 の 要素 は "東京 ", "大 阪 ", "名 古屋 "か ら な り ま す . 第 2 の 要素 は "パソ コン ”", "ワー プ 
ロ ", か ら な り ま す . 第 3 の 要素 は "数 量 , 金額 , 利益 , 1 人 当たり 売上 "か ら な り ま す . 
③ 配列 の 各 要 素 は 次 の よう に と られ ます 
配列 名 を *% と する 














地 区 | 商品 数 量 金 額 利 益 | 1 人 当たり 
売 眉 
r%(X,・Z ) 

パソ コン | r% (0.0.0) | r% (0.0.1) | r% (0.0.2) |r% (0.0.3) 4 
東 京 数 量 が 0, 金 額 が 1 , 利 益 が 2, 

ワー プロ | rW% (0,1.0) | r% (0.1.1) | r% (0.1.2) | r% (0.1.3) 1 人 当たり 売上 が 8 

パソ コン |r% (1.0.0) | r% (1.0.1) | r% (1.0.2) | r% (1.0.3) パソ コン が 0, ワー プー ロ が 1 
大 阪 東京 が 0, 大阪 が 1, 名 古屋 が 2 








ワー プロ |r% (1.1.0) |r% (1.1.1) | r% (1, 1,2) | r% (1.1.3) 





パソ コン |r% (2,0.0) | r% (2.0.1) | r% (2,0,2) | r% (2.0.3) 








ワー プロ |r% (2.1.0) | r% (2.1.1) | r% (2,1.2) | r% (2.1.3) 























③⑬ 地区 別 が 入力 され た ら , 東京 の 場合 は c% を 0 と し て , 大 阪 の 場合 は c% を 1 と し て 。, 名 古屋 の 場 
合 は o% を 2 と し て r%(oc%,0,0) か ら r%(c%,1,8) まで を 表示 し ます . 
【 プ ログ ラム 例 】 


DIM r%(3, 2, 4) 3 次 元 配列 の 官 言 
FOR i =0T02 デー タ を 配列 へ 読み 込む 
FOR j=0TO1 
FORk =0TO3 
READ r%(⑪i, j, k) 
NEXT k 
NEXT j 
NEXT i 
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INPUT " 騙 ", t$ 地区 名 の 入力 

IF ($ = " ト 7 THENc%=0 t$ の 内 容 に よっ て o% の 値 を 0 て 2 と する 

IF t$ = “" 材 協 " THENc%= 1 

IF 1$5 = "ガヤ THENc%=2 

PRINT t$ 結果 の 表示 
PRINT " 299349 や が 2 キ 77/ に ゲ 

PRINT "791 ルー「: 

PRINT r%(c% 0, 0): ” "iT%(e% 0. 1): ) "iT%(c% 0, 2): r%(c% 0, 3) 

PRINT "9- ゲ ロー": 


PRINT r%(c%. 1 0): ) "ir%(C% 1 1)0: "ir%(c% 1 2): Tr%(c% 1 3) 
END 
DATA 350, 500, 170, 100, 650, 800, 120, 180 
DATA 250, 300, 110, 120, 400, 500, 100, 110 
DATA 210, 230, 104, 115, 350, 450, 105, 109 


【 結 果 】 
人 ナゴヤ を 入力 の 例 
コ 
スウ リ ヨ ウ キンカ ^~ ク リエ キ ウリ ア ケ ~/ ニ ン 


AA?* ソコ ン 210 230 104 115 
ワ - フ "ロロ 350 450 105 109 


















































チク トウ キョ ヨウ 
トウ キョ ウ トウ キョ ウ を 入力 の 例 
スウ リョ ヨウ キン カ ~ ク リエ キ ウリ 了 ケ ~/ ニ ン 
)A* ツ コン 350 500 170 100 
ワ - フ * ロ 650 800 120 180 
【 例題 63】 4 次 元 配 列 
ド の デー タ を 4 次 元 配列 に C 代 入 し , 次 に , 年 、 地 区 商品 名 を 入力 し て , その 年 の その 地区 
の その 商品 の 売上 数 量 , 金額 , 利益 お よび 1 人 当たり 売上 を 表示 する プロ グラ ム を つく れ . 
年 別 地区 別 商品 別売 上 推移 
年 | 地 区 | 商品 名 数 量 金 額 利 益 1 人 当たり 
(万 円 ) (万 円 ) 売 間 避 
十 
パソ コン 100 5000 1000 500 
東 京 
ワー プロ 70 1400 210 470 
7% パ ツ ロ 必 70 3200 420 530 
1987| 大 阪 
ワー プロ 60 1200 170 400 
yN の コト 60 2980 310 600 
名 古屋 
ワー プロ 30 600 90 600 
7N の ラジ 150 7400 1420 740 
東 京 
ワー プロ 90 1700 250 540 
1 
パソ コン 100 4800 550 800 
1988| 大 阪 
ワー プロ 70 1300 160 650 
パ ジ ツ コン 80 3560 410 710 
名 古屋 
ワー プロ 40 750 100 750 
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【 解 説 】 〇 4 次 元 の 配列 を 扱い ます . 
① 表 を 配列 に 格納 する た め に は , 第 1 要素 は 1987 年 と 1988 年 の 2, 第 2 要素 は 東京 大 阪 , 名 
古屋 の 3, 第 3 要素 は パソ コン と ワー プロ の 2, 第 4 要素 は 数 量 , 金額 , 利益 , 1 人 当たり 売上 の 
4 で す . し た が っ て , 次 の よう に 宣言 し ます . た だ し 
DIM h%(1 TO 2,1 TO 3,1 TO 2,1 TO 4) 
これ は OPTTON BASE 1 と すれ ば DIM h%(2,3,2,4) と 同じ で す 
③ 1h%(2,3,1,2) は 1988 年 の 名 古屋 の パソ コン の 金額 を 示し ます . 
⑬ デー タ の 読み 込み は 次 の よう に し ます . 
FOR i=1 TO 2 
FOR j=1 TO 8 
FOR k=1 TO 2 
FOR 1=1 TO 4 
READ h%(1,j,k,1 ) 





NEXT 1。K。 二 ふ 











【 ブ プロ グラ ム 例 】 

DIM D%(1 TO 2, 1 T0 3, 1 TO 2, 1 TO 4) 一 -4 次 元 配列 の 宮 言 

FOR i=1TO2 ー ィ イー デー タ の 読み 込み 

FORj=1T03 
FORk=11T02 
FOR 1] = 1T04 
READ h%(Gi, jk, 1) 」 
NEXT 1, k, j i 
INPUT " 補 ": y% 年 、 地区 、 商 品名 の 入力 


INPUT " 陣 ": t$ 
INPUT " 光 y ": s$ 
IF y%=1987 THEN i=1ELSE i=2 








年 が 1987 の と き を 1, その 他 は 1i を 2 と する 

















IF t8 =" ト 妊 9 の THEN ーー 地区 が 東京 の と き を 1、 大阪 の と き j を 2%. 
0 sd その 他 の と き 3 を 3 と する 
ELSEIF t$ = " 材 協 " THEN 
) = 2 
ELSE 
j = 3 
END IF ー 
IF Ss$ = "パリ コツ "THEN k = 1 ELSE k = 2 一 商品 名 が パソ コン の と き k を 1, その 他 の と き k を 2 と する 
FORm=1T04 1 3, k を 各 要 素 の 値 と し て 数 量 , 金額 利益, 1 人 当たり 
PRINT h%Gi, jk m): 売上 を 表示 
NEXT m 
END 


DATA 100, 5000, 1000, 500, 70, 1400, 210, 470 
DATA 70, 3200, 420, 530, 60, 1200, 170, 400 
DATA 60, 2980, 310, 600, 30, 600, 90, 600 
DATA 150, 7400, 1420, 740, 90, 1700, 250, 540 
DATA 100, 4800,550, 800, 70,1300, 160, 650 
DATA 80, 3560, 410, 710, 40, 750, 100, 750 


76 そ 


8 章 配 列 





【 結 果 】 
ネン ? 1988 1988, オオ サカ , パソ コン を 入力 の 例 
チク ? オオ サカ 
ショ ウ ヒ ン ? "ソコ ン 
100 4800 550 800 


ネン ? 1987 1987, トウ キョ ウ , ワー プロ を 入力 の 例 
チク ? トウ キョウ 
ショ ウ ヒ ン ? ワー- フ ? ロ 

70 1400 210 470 


演習 問題 」 


(64) 配列 & (20) C 下 の デー タ を 読み , 2 行 に 表示 する プロ グラ ム を つく れ 
デー タ 』8。.5, 2.5, 1.5, 3.5, 4.2。 5.2, 2.6。 5.5, 4.2, 
Bs むす 。5、 る 。5、 5。6、 Bs2、 9。9。5。4。 6。5。 2。2 
1.8, 4.4 
(65) x を -10 か ら 10 ま で y=2x*-2x"+5x の 値 を 求め て 配列 y%(-10)~-y%(10 ) に 代入 し て 
か ら , 各 値 を 表示 する プロ グラ ム を つく れ . 
(66) 下 の デ ー タ を 配列 に 読み &%(5) と a%(7) を 表示 する プロ グラ ム を つく れ . た だ し , 配列 の 
添字 は 1 か ら と る も の と する . 
デー タ 』7, 5, 2、 9 7, 53, 8,。4。 1, 0 
(67) オプ ショ ン ベ ー ス を 1 と し て , 配列 x!(10,20) を 宣言 し , 縦 方 向 10, 横 方 向 20 の 表 と 
考え 乱数 を つく っ て 代入 し , x!(5,12) の 位置 の 値 を 表示 する プロ グラ ム を つく れ . 
(68) 下 の 表 を 2 次元 配列 に 読み 表示 する プロ グラ ム を つく れ . 


























(69) 下 の 表 の 相対 する 項目 の 積 の 値 を 配列 に 代入 し て , 表示 する プロ グラ ム を つく れ . 





8 1716 7 1419 





21913 513| 1 





418|12 618|12 





7 1110 8 1 妥 午 攻 





























(70) 【 例 題 61】 の デー タ を 使い , 配列 に 値 を 読み 込ん で か ら , 5 品目 の 金額 の 合計 を 求め る プロ 
グラ ム を つく れ 

(71) 乱数 で 100 個 の 10~-99 の 値 を つく り , 10-90 台 が 各々 が 何 回 お きた か を 求め る プロ グラ 
ム を つく れ . 
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(7%) 


(75) 


(74) 


(75) 


(64) 


(65) 


下 の 文字 デー タ を 配列 に 読み , 後 か ら 表 示す る プロ グラ ム を つく れ . 


デー タ Komoro, Karuizawa, Nagano, Ueda, Ueno 


(72) の 文字 列 配列 を 使っ て , 先頭 1 文字 
プロ グラ ム を つく れ . 


を 入力 し て , その 文字 で 始ま る 文字 列 を 表示 する 


【 例 題 642】 の デー タ を 使い 3 次 元 配列 に 値 を 代入 し て , 商品 番号 1 また は 2 を 入力 し , 1 


の と き は "パソ コン "の デー タ , 2 の と き は ”" ワ 

















ー プ ロ " の デー タ を 表示 する プロ グラ ム を つく れ 


【 例 題 62】 の デー タ を 使い 3 次元 配列 に 値 を 代入 し て か ら 金 額 を 入力 し , その 人 金額 以上 の 
利益 の 地区 と 品名 の デー タ を 表示 する プロ グラ ム を つく れ . 
[ 解 答 」 
【 プ ログ ラム 例 】 
DIM a(20) 配列 a (20) の 宣言 
FOR i = 0 10 19 &(0)-a(19) に デー タ を 読み 込む 
READ a(i) 
NEXT i 
FOR i = 0 101 &(0 )~a(19) を 2 行 に わけ て 表示 
FORj=0109 
PRINT a(10*i+): a(0)~a(9) が 1 行 目 , a(10 )~-a&(19) が ?2 行 目 
NEXT j 
PRINT 
NEXT i 
END 
DATA 3.5,2.5,1.5, 3.3, 4.2, 5.2, 2. 6, 3. 5, 4.2, 8.1 
DATA 1.5, 2.3, 5.6, 8. 2, 9. 9, 5. 4, 6. 3, 2. 2, 1. 8, 4. 4 
【 結 果 】 
9.5 25 HL.5 98 4 忌 2 946 没 a5S Ac2 8an 
1.5 28 56) 8 の 9 ER 68 和み oe8 る 。4 
【 プ ログ ラム 例 】 
DIM y%(-10 TO 10) 配列 y%(-10 )~y%(10 ) の 宮 言 
FOR x = -10 T0 10 ー テ を -10 か ら 10 まで 代入 し て 
y%(xX) =3* ま x*Xx* ま Xx-ー2*x ネ x+5*X =5x"-2x'+5x を 求め て 配列 へ 代入 


NEXT x 





y%(-10 )~y%( 10 ) の 表示 





FOR x = -10 10 10 
PRINT y%(x) 

NEXT x 

END 


【 結 果 】 


-3250 
-2394 
-1704 
-1162 
-750 
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(66) 


(67) 


(68) 


-450 
ー-244 
-114 
ー-42 
-10 


26 


180 
350 
606 
966 
1448 
2070 
2850 


【 プ ログ ラム 例 】 
OPTION BASE 1 一 ーーーーーーーー 確 字 を 1 か ら 始め る 
DIM a%(10) 配列 a%(1)~a%(10 ) の 宣言 


FOR i = 1 TO 10 a%( 1)~-8%(10 ) に デー タ を 読み 込む 
READ a%(⑪1) 
NEXT i 


RSJNT s5⑤ ーーーーーー (0 を ee(70 の 守 
END 

DATA 7.5.2.9.7.3.8.4.1.0 

【 結 果 】 


7 8 





【 プ ログ ラム 例 】 


OPTION BASE 1 一 ーーーーーーー- オ プシ ョ ン ベ ー ス を 1 と する 
DIM x!(10, 20) 一 ーー 配列 x!(10,20 ) の 宣言 


FORi=110 10 x!(1.1) か ら x!(10,20 ) に 乱数 を 代入 
FORj=11020 
x! 人 Gi) = RND(1) 


NEXT j, i 
PRINT x!(5, 12) 一 一 ーーーーーーーx!(5,12) の 値 を 表示 
END 


【 結 果 】 
-46298 


【 プ ログ ラム 例 】 


DIM x%(4, 3) 2 次 元 配列 の 宣言 
FOR i=0T03 配列 x%C デ ー タ を 読み 込む 
FOR j=0T0O2 
READ x%i, 1}) 
NEXT j, i 
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FORi=0TO3 





FORj=0102 


PRINT x%Gi, 1): 


NEXT j 
PRINT 
NEXT i 





END 


DATA 5, 3, 4, 2, 3, 8, 7, 4 5, 6, 1, 8 


【 結 果 】 


5 4 


し 所 上 】 


め 8 
誠 5 
6 8 


(69) 【 プ ログ ラム 例 】 
DIM s%(4, 3), t%(4, 3), u%(4, 3) 


FOR 


NEXT i 


FOR 


PRI 
NEX 
END 


配列 の 宣言 





i=0TO3 
FORj=0102 


READ s%G。 3), t% 人 Gi 1) 
u%G, 1) = S%G, 3) * t%(Gi, 


NEXT 】 


2 つの 表 を 配列 s ぬ も t% へ 読み 込み 相対 する 値 の 
積 を 求め て 配列 u% の 相対 する 項 へ 代 人 


3) 





i=0103 





FORj=01TO2 

PRINT USING “# 寺 
NEXT j 
PRINT" 
FORj=0TO2 

PRINT USING "# 持 
NEXT j 
PRINT 
FORj=0102 

PRINT USING “ 捧 # 
NEXT j 
NT 
Ti 


D 


か 
D 


" S%(i, 


t%(i, 


juU%(i, 


結果 の 表示 


3): 


3 : 





3 





DATA 8.7.7.4.6.9.2.5.9.3. 3, 1 4. 6, 8, 8, 2 2 7. 3 1, 2.0. 7 


【 結 果 】 


8 
2 
4 
7 


FORi=01TO4 


ビ O の の OO ょ 1 
どら Co の 


(70) 【 プ ログ ラム 例 】 
DIM s$(5, 4) 


C) の ) の 1 ょ 1 


56 28 5 
10 27 
24 64 
21 2 


= リー の 


ooocO よ 
〇 よ の の 





配列 の 宣言 
デー タ の 読み 込み と 3 列 目 の 計 算 を 





FORj=0T02 


し て 代入 お よび 合計 を 求め る 
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IE 


READ s$G, 3) 














NEXT j 

s$(i, 3) = STRS(VAL(s$(i, 1)) * VAL(sS(i, 2))) 

t ={t + VAL(s$(i, 3)) | 金額 の 合計 を 求め る 
NEXT i 
PRINT t 結果 の 表示 
END 


DATA / 717, 25, 458.7-7 ni 48, 216, CD, 21, 142 
DATA VTR, 30.98, ビ テア 礼 7,13. 126 


【 結 果 】 
29378 


(?1) 【 プ ログ ラム 例 】 
DIM s%(1 TO 9) 一 一 ーーーーーーーー 配 列 の 官 言 
FOR i = 1 TO 100 乱数 を つく り 数 える 
p = INT(RND(3) * 90) + 10 10- 99 の 乱数 
pp = INT(D / 10) 乱数 の 10 の 値 を と り 出 す 
s%(pp) = s%(pp) + 1 乱数 の 値 に よっ て s%(1)-s%(9) 代入 
NEXT i 


FORi=1109 博 果 の 表示 
PRINT i* 10: "が 信 ": s%G⑪) 
NEXT i 


END 









【 結 果 】 
10 ダイ = 14 
20 が イ = 4 

30 が イ = 16 
40 が イイ = 13 
50 ダイ = 9 

60 が イ = 12 
70 が イイ = 10 
80 ダイ = 9 

90 ダイ = 13 


(72) 【 プ ログ ラム 例 】 
DIM a$(1 TO 5) 一 ーーーーーーーーーー 配 列 の 宮 言 
タ の 読 


FORi=11T05 ン 
READ a$(i) 
NEXT i 


FOR i = 5 TO 1 STEP -1 逆 C 表 示 
PRINT a$G): 「 

NEXT i 

PRINT 

END 

DATA Komoro, Karuizawa, Nagano, Ueda, Ueno 


【 結 果 】 


Ueno Ueda Nagano Karuizawa Komoro 
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(75) 


(74) 


ーー デー デュ ペー 


【 プ ログ ラム 例 】 


DIM a$(1 10 5) 配列 の 宣 
FORi=1T05 2 で E 
READ a$(i) 
NEXT i 
INPUT x$ 文字 列 の 入力 ーー 
FORi=1105 x$ で 始ま る 文字 列 の 表示 
IF ASC(a$(i)) = ASC(x$) THEN PRINT a$G):『 
NEXT i 
PRINT 
END 
DATA Komoro, Karuizawa, Nagano, Ueda, Ueno 


【 結 果 】 

| 

Ueda Ueno 

: 返 

Komoro Karuizawa 


























【 プ ログ ラム 例 】 


DIM r%(3, 2, 4) 一 一 一 ーーーーーーーーーーーーーー 配列 の 宣言 
FORi=0102 デー タ の 読み 込み 
FORj=0101 
FORk=0103 
READ r%(G⑪, j, K) 
NEXT k 
NEXT j 
NEXT i 
INPUT “ ョ 7 NO (1 or 2) ", 1% 一 ーーーーーー- 商品 番号 の 入力 
IF t% = 1 THEN s$ = "パリ コッ " ーーーーーーーーーーーー 商品 番号 C よ っ て s$ を 決め る 
IF 14% = 2 THEN s$ = "9-7 ロ 
c% = t%- 1 商品 番号 に よっ て 商品 を 示す c% を 決め る 
t1$(0) = "トキ 9“ 地区 名 を 配列 へ 代入 
t1S(1) = " 材 協 " | 
t1$(2) =" ガ ャ ー「" 


PRINT s$ 結果 の 表示 
PRINT " 29939 が 7 呈 キ 77/ に 7 四 




















FORi=0TO2 
PRINT t1$(i): 
PRINT Y%G c% 0):) "irT%G ce% 1): " "iT%(G c% 2): r%(i c% 3) 

NEXT i 

END 

DATA 350, 500, 170, 100, 650, 800, 120, 180 

DATA 250, 300, 110, 120, 400, 500, 100, 110 

DATA 210, 230, 104, 115, 350, 450, 105, 109 


【 結 果 】 


ショ ウ ヒ ン NO (1 or 2) 1 1 を 入力 の 例 
ハ ? ソコ ン 








スウ リョ ヨウ 。 キン ガツ リエ キ ウリ アリ ~/ ニ ン 
トウ ゥ キョウ 350 500 170 100 
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オオ サカ 250 300 110 120 
Pl 210 230 104 115 
ショ ウ ヒ ン NO (1 or 2) 2 る 2 を 入力 の 例 
ワー フ * H 
スウ リ ヨ ウ キンカ" ク リエ キ ウリ ア ケ */ ニ ン 
トウ キョ ウ 650 800 120 180 
オオ サカ 400 500 100 110 
2 350 450 105 109 
【 プ ログ ラム 例 】 
DIM r%(3, 2, 4) 配列 の 宣言 
FORi=0102 デー タ の 読み 込み 
FORj=0101 
FORk=0103 
READ r%i, j, k) 
NEXT k 
NEXT j 
NEXT i 


INPUT "が 7 ", k% 一 一 ーーーーーーー 金額 の 入力 
t1$(0) = "トキ 9 “ 地区 名 を 配列 へ 代入 
t1$S(1) = “ 材 幼 “ 
t1$(2) =" ャ ヤー 
h$(0) 7 Va EE を 配列 へ 代入 
h$(1) = "9-7 ロ ーーーーー 
PRINT k% "人 ョ の 
PRINT " 騙  【y7 
FORi=07102 
IF r%(i, 0, 2) >= 
IF r%i, 1, 2) >= 
NEXT i 
END 
DATA 350, 500,170,100,650, 800, 120, 180 


DATA 250,300, 110, 120, 400, 500, 100, 110 
DATA 210,230,104, 115, 350, 450, 105, 109 





結果 の 表示 
中 


k% THEN PRINT t1SG): hS(0): r%Gi 0, 2) 
k% THEN PRINT t1S⑪): hS(1): r%(Gi。 1 2) 





【 結 果 】 

キン が ^ ク 110 110 を 入力 の 例 
110 イシ ~ ョ ヨウ 

学 み ヒン メイ リエ キ 

トウ キョ ヨウ 用" ソコン 170 

トウ キョ ウ ワ - フ *H 120 

オオ サカ "ソコ ン 110 

キン が ~ ク 105 105 を 入力 の 例 
105 イシ ~ ョ ウ 

プ み ヒン メイ リエ キ 

トウ キョウ 八 " ソコ ン 170 

トウ キョ ウ ワー ブフ" H 120 

オオ サカ "ソコ ン 110 

ナコ ^ ヤ ワ - フ * ロ 105 

キン カ ~ ク 130 130 を 入力 の 例 
130 イシ ^ ョ ウ 

チ グ セン メイ リキ 

トウ キョ ウ "ソコ ン 170 
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TYPRE, END TYPE 





【 例題 64】 ユー ザー 定義 弄 
下 の デ ー タ を ユー ザー 定義 型 (タグ を KO0ZIN と し , 名 前 を 10 文字 、 年 齢 を 整数 型 , 年 収 を 
単 精度 実数 型 , 出身 地 を 7 文字 と する メン バー) で 定義 し , 各 項 名 を 表示 する プロ グラ ム を つ 
くれ . 
デー タ 5』0noda, 50, 1350.6, トウ キョ ウト 
(名 前 , 年 齢 年収 (万 円 )、 出身 地 の 順 と する ) 














【 解 説 】 〇 ユー ザー 定義 型 (デー タ 型 ) を 使い ます . 

① ユー ザー 定義 型 は C 言語 の 構造 型 に 相当 する も の で , 従来 の BASIC に は な い 新しい デー タ 型 で 
す . 本 例 で は 名 前 , 年 齢 。 年 収 、 出 身 地 の 組合 わせ の デー タ を 1 つの か た まり と し て 扱 お うと する 
ゃ の で す . 

②③ ユー ザー 定義 型 は 次 の よう 定義 し ます . 





TYPER kozin tt 全体 を kozin と いう 名 前 と し ます . タ 
グ と 呼び ます . 
namae AS STRING*10  ……| namae を メン バー 名 と し , ーーーーーー」 
固定 長 10 文字 と し ます 
nenrei AS INTEGER 。 …… nenrei を メン バー 名 と し , 
整数 型 と し ます . っ 
メン バー 
nenShu AS SINGLE 。 …… nenShu を メン バー 名 と し , 


単 精度 実数 と し ます 


ShusSshin AS STRTNG*7 …… shusshin を メン バー 名 
と し , 固定 長 7 文字 と し ます 





END TYPR OO ユー ザー 定義 型 の 定 姜 の 終了 


と の 結果 次 の よう な 1 か た まり の 領域 が 確保 され ます . 文字 型 , 整数 型 , 実数 型 , 文字 型 と 型 の 
違う も の を 1 か た まり と し て 扱い ます . 
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Iamae 





nenrei 


nenshu 











shusshin 





③ と の タグ kozin の 変数 は 次 の よう に 宣言 し ます . 
レコ ー ド 型 変数 名 
DIM 1 kozin 
④ 各 メ ン バ ー を 参照 ( 各 メ ン バ ー に 値 を 代入 し た り , 読み 出し た りす る と と ) する に は 次 の よう に 行 
いま す . 
&・namae="Onoda”" 
a・nenrei=50 
&・nenShu=1350.6 
a&・shusshin=" ト ウキ ョ ウ ”" 
③⑤ 表示 は PRINT a.namae で "Onoda” を 表示 し ます . 
⑥ メン バー は 配列 と 可変 型 の 文字 列 (た と を えば, x$ と いう 型 . これ は x$ の 内 容 が "ABC" と ら 5 文字 
で あっ た り "ABCDE"” と 5 文字 で あっ た り し ます ) に は な れ ま せん . 











【 プ ログ ラム 例 】 
TYPE kozin ユー ザー 定義 型 の 宮 言 
namae AS STRING * 10 一 一 一 メン バーnamae は 10 文字 の 文字 列 
nenrei AS INTEGER メン バーnenri は 整数 
nenshu AS SINGLE メン バーnenshu は 実数 
shusshin AS STRING * 7 メン バーshusshin は 7 文字 の 文字 列 
END TYPE 
DIM a AS kozin 一 一 一 ーー 一 一 一 変数 名 a の 宣言 
a.namae = "Onoda 一 一 一 一 一 一 変数 に デー タ を 入力 
a.nenrei = 50 


a.nenshu = 1350.6 
a.shusshin = "トト "ーーー デ 


PRINT a.namae 各 変 数 の 表示 
PRINT a.nenrei 

PRINT a.nenshu 

PRINT a.shusshin 

END 


【 結 果 】 


Onoda 
50 
1350.6 

トウ キョ ウト 
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【 例題 65】 ユー ザー 定義 型 で の 配列 
下 表 の デー タ を タグ を shain と し て ユー ザー 定義 型 で 定義 し て , 配列 に デー タ を 読み 。 全 
デー タ を 表示 する プロ グラ ム を つく れ . 


























名 前 | 年 収 家族 数 
Yamada 1500 6 
Tanaka 1800 4 
Onoda 850 3 
Kawada 1200 4 
Noda 1000 5 
Hoshino 750 3 























【 解 説 】 〇 変数 に 配列 を 使い ます . 

(① デー タ 組 が 複数 の 場合 は 変数 に 配列 を 使い ます . 

②③ 【 例 題 64】 と 同様 に タグ を shain と し て メン バー を namae, nenshu. kazokusu と し て 定 
義 し ます -. 

③ 変数 の 定義 を 次 の よう に し ます . この 結果 、 05 の 6 組 の デー タ を 扱え ます . 

DIM a(6) AS shain 

④ 参照 は a(1) .namae,、a(3) .nenshu. 8a(4)・kazokusu の よう KC 配列 名 . メ ン バ ー 名 で 行い 
ます . 

【 プ ログ ラム 例 】 


TYPE shain ユー ザー 定義 型 の 定義 
namae AS STRING * 10 
nenshu AS INTEGER 
kazokusu AS INTEGER 














END TYPE 
DIM a(6) AS shain 変数 の 宣言 
FORi=0TO5 デー タ の 読み 込み 


READ a(i).namae 
READ a(⑪).nenshu 
READ a(i).kazokusu 














NEXT i 

FORi=0105 表示 
PRINT USING "& ia(G).namae: 
PRINT USING “ 畠 凌 # 雷電: a(i).nenshu: a(i).kazokusu 

NEXT i 

END 


DATA Yamada, 1500, 6, Tanaka, 1800, 4. 0noda, 850, 3 
DATA Kawada, 1200, 4, Noda, 1000, 5, Hoshino, 750, 3 
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【 結 果 】 
Yamada 1500 6 
Tanaka 1800 4 
Onoda 850 3 
Kawada 1200 4 
Noda 1000 5 
Hoshino 750 3 








【 例題 66】 タイ プ 型 を 使っ て 検索 
次 の デー タ を タイ プ 型 で 定義 し て 代入 し , 次 に , 身長 を 入力 し て その 身長 以上 の 人 の リス ト 
を つく る プロ グラ ム を つく れ . 





















































名 前 | 身長 (cm) | 体重 (kg) 年 齢 
神田 国男 183.7 65.8 41 
大 友 良 雄 160.6 54.2 28 
中 根 富 夫 158.9 50.6 36 
井上 太郎 190.3 72.8 29 
吉田 薫 181.3 83.9 33 
渡辺 兼 介 175.2 59.2 42 
新井 久男 170.6 70.3 38 
【 解 説 】 〇 タイ プ 型 変数 を 使っ て 検索 を し ます 


① 問題 の デー タ を 次 の 名 前 で タイ プ 型 変数 に 代 人 し ます -. 
TYPE peop1e 


namae AS STRING*20 名 前 20 バイ ト 
Shinohou AS STNGLE 身長 単 精度 実数 
taiju AS SINGLE 体重 単 精度 実数 
nenrei AS TNTEGER 年 齢 整数 

END TYPE 


⑬ デー タ を 配列 a(i) に 代入 し ます . 
③ 身長 を shi 代入 し て , 変数 名 a(1)・shinchou と 比較 し て , shi 以上 の 人 の リス ト を 表示 し 
ます . 


【 プ ログ ラム 例 】 
TYPE people タイ プ 型 変数 の 宣言 
namae AS STRING * 20 名 前 , 身長 , 体重 、 年齢 を 代入 する 準備 
shinchou AS SINGLE 
taiju AS SINGLE 
nenrei AS INTEGER 
END TYPE 
DIM a(7) AS people 一 一 一 配列 変数 の 宮 言 
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FORi=0TO6 配列 ヘ デ ー タ 読み 込み 
READ ai).namae 
READ aG⑪).shinchou 
READ a(⑪).taiju 
READ a(i).nenrei 

















NEXT i 

INPUT "ルツ チョ 9 ", shi 身長 入力 

FORi=0T06 Shi 以上 の 人 の 名 前 を 表示 
IF aG).shinchou >= shi THEN PRINT a(i).namae 180・6 を 入力 の 例 

NEXT i 

END 


DATA が が だ れ 183.7,65.8, 41 
DATA 材 t 3 れ 160.6.54.2, 28 
DATA 連 《 ドド れ 158. 9, 50.6, 36 
DATA 9 エ 7n9.190.3, 72.8, 29 
DATA が 上ル 181.3,.83.9,33 
DATA 9 久 27, 175.2, 59.2, 42 
DATA 7?1 上 170.6, 70.3, 38 


【 結 果 】 


シン チヨ ウ 180.6 
カン タ ^ クニ オ 
イノ ウエ タロ ウ 
ヨシ タ ~ カオ ル 








【 例題 67】 全体 の コピ ー 

次 の デー タ 組 を , タグ を shain と する ユー ザー 定義 型 で 定義 し , 変数 る と b を 宣言 し , az 
namae, a・nenShu。 a・kazokusu に 代入 し た 後 、 b へ ヘコ ピー し て , b の 各 メ ン バ ー の 値 を 
表示 する プロ グラ ム を つく れ . 


デー タ : | yamada|1500| 6 名 前 、 年 収 、 家 族 数 と する 











【 解 説 】 〇 ユー ザー 定義 型 の 全 デ ー タ を 変数 問 で ユ ピ ー し ます -. 

① タグ を shain と し , メン バー を namae, nenshu, kazokusu と し て 定義 し ます . 

③⑧ 次 変数 と b を 宮 言 し ます . 

⑧ 各 変 数 と デー タ を 読み 込み ます - 

④ =& に よっ て の すべ て の メン バー を b 代入 し ます . ユー ザー 定義 型 の すべ て の デー タ を 変数 
間 で コピ ー で きる 便利 さ が あ り ま す . 

【 ブ プロ グラ ム 例 】 


TYPE shain ユー ザー 定義 型 の 宜 言 
namae AS STRING * 10 
nenshu AS INTEGER 
kazokusu AS INTEGER 
END TYPE 
DIM a AS shain 宜 言 


変数 a, b の 宮 
DIMb AS 昌和 
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READ a.namae 変数 & へ デー タ を 読み 込む 
READ a.nenshu 
READ a. kazokusu 





b =a & を b へ ヘコ ピー 
PRINT USING "& iD. 3 の 表示 
PRINT USING " 拓 # 幸 括 #: b.nenshu: b.Kazokusu 
END 
DATA Yamada, 1500, 6 
【 結 果 】 
Yamada 1500 6 
[演習 問題 」 


(76) タグ を kaisha と する ユー ザー 定義 型 で shamei, uriage, Jugyoihn を メン バー と し 
て 定義 し て , 次 に 変数 名 を b と し て , 下 の デ ー タ を 代入 し て か ら 表 示す る プロ グラ ム を つく れ . 
デー タ iRNihon Seisakusho, 1536 .2, 1200 (社名 , 売上 ( 億 円 )、 従業 員 (人 )) の 順 
と する . 
(7?) 下 の デ ー タ 組 を , ユー ザー 定義 型 で 定義 し , 変数 を と b を 宮 言 し , 8 に デー タ 組 を 代入 し , 
次 に 全体 を もち ヘコ ピー し て か ら b を 表示 する プロ グラ ム を つく れ . 


デー タ : | 大 山 | 東京 都 ]3 | 名 各 信 所 家族 数 と する 


(78) 次 の デー タ を , ユー ザー 定義 型 で 定 養 し, &(4) を 宣言 し て 代入 し た 後 , 全体 を 表示 する プ 
ログ ラム を つく れ . 




















(79) 下 の デ ー タ を ユー ザー 定義 型 で 定義 し て , 次 に 名 前 を 入力 し て , その 名 前 の 人 の デー タ を 表 
示す る プロ グラ ム を つく れ . 


























名 前 | 年 齢 | 所 属 特 技 勤続 年 数 | 身長 (cm) | 体重 (kg) 
大 山 和 男 | 31 | 営業 1 課 | 英会話 7 163.8 60.3 
木下 三郎 | 28 | 総務 課 パソ コン 3 156.9 51.4 
上 田 次 郎 | 19 | 営業 3 課 | 音 楽 ] 172.8 62.5 
玉井 久雄 | 24 | 経理 課 英会話 2 178.3 70.6 
川上 太郎 | 33 | 営業 2 課 | パソ コン 5 181.5 | 75.3 
内 ドー 夫 | 25 | 人 画 課 書 道 4 170.2 63.6 
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(80) (79) の デー タ を 使っ て 勤続 年 数 を 入力 し , その 年 数 以上 の 人 の リス ト を 表示 する プロ グラ 
ム を つく れ . 


(76) 【 プ ログ ラム 例 】 
TYPE kaisha 
shamei AS STRING * 20 
uriage AS SINGLE 
jugyoin AS INTEGER 
END TYPE 
DIM b AS kaisha ーーーーーーー 変数 名 を b と する 


b. shamei = "Nihon Seisakusho-^ 代入 
b.uriage = 1536.2 

b. jugyoin = 1200 

PRINT b.shamei 表示 
PRINT b.uriage: " ェ ツ " 

PRINT b. jugyoin: "= ツ " 


END 


ユー ザー 定義 型 の 宜 言 





【 結 果 】 


Nihon Seisakusho 
1536 .2 オク エン 
1200 = ン 


(7?) 【 プ ログ ラム 例 】 
TYPE meibo ユー ザー 定義 型 の 宜 言 
namae AS STRING * 10 

jusho AS STRING * 8 

kazokusu AS INTEGER 

















END TYPE = ー 
DIM a AS meibo 変数 ab の 宣言 
DIM b AS meibo 

READ a.namae 変数 に 値 を 読み 込む 





READ a. jusho 

READ a.kazokusu 

b = a b に Ca を コピ ー 
PRINT b.namae: b.jusho: b.kazokusu 表示 

END 

DATA 材 ヤ ヤ , トリ キョ リト , 3 











【 結 果 】 


オオ ヤマ トウ キョ ウト 3 


7Z ざ 
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TYPE shain 


END 
DIM 
FOR 


NEXT i 


【 プ ログ ラム 例 】 


9 章 タイ プ 型 





ユー ザー 定義 型 の 宣言 





TYPE meibo 


namae AS STRING * 10 
jusho AS STRING * 8 
kazokusu AS INTEGER 





END TYPE 
DIM a(4) AS meibo 


変数 名 を a(4) と 配列 と する 
変数 に 値 を 読み 込む 





FORi=0103 
READ ai).namae 
READ ai). jusho 
READ a(i). kazokusu 





NEXT i 





FORi=0TO3 


PRINT a(i).namae: a(i).jusho: a(i). kazokusu 


NEXT i 








END 


DATA 材 ヤヤ , ト 9 キョ 9 ト , 3 9 エダ, す イ 97, 4 
DATA イダ , 私 ", 5, トル?, 7 が 7, 4 


【 結 果 】 

オオ ヤマ トウ キョ ウト 
ウェ タ ~ サイ タマ 
イイ タ ~ チ ハ ^ 

トシ マ 7 サカ ^ ワ 


【 プ ログ ラム 例 】 


心 m い 必 CO 


タイ プ 型 変数 宮 言 





namae AS STIRING * 8 
nenrei AS INTEGER 
shozoku AS STRING * 10 
tokugi AS STRING * 10 
kinzoku AS INTEGER 
shinchou AS SINGLE 
taiju AS SINGLE 


名 前 年 齢 所 属 。 特技, 勤続 身長 , 体重 





TYPE 


配列 の 宣言 





a(6) AS shain 





i=0TO5 
READ a(i).namae 
READ a(i).nenrei 
READ a(i). shozoku 
READ ai). tokugi 
READ a(G⑪).kinzoku 
READ a(i). shinchou 
READ a(i).taiju 


デー タ を 配列 へ 読み 込む 








INPUT “名 前 “, na$ 


FORi=0T05 
IF a(⑪).namae = na$ THEN 


名 前 の 入力 
na$ と 同じ 名 前 の 








人 の デー タ の 表示 


PRINT a(i).namae: a(i).nenrei: a(i).shozoku: a(i). tokugi: 
PRINT a(i).kinzoku: a(i).shinchou: a(1).taiju 





END IF 
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NEXT i 
END 
DATA 大 山 和 男 , 31, 営業 一 課 , 英会話 , 7, 163. 8, 60.3 
DATA 木下 三郎, 28, 総務 課 , パソ コン , 3, 156. 9, 51.4 
DATA 上 田 次 郎 , 19, 営業 三 課 , 音楽 , 1, 172.8, 62.5 
DATA 玉井 久雄 , 24, 経理 課 , 英会話 , 2, 178. 3, 70.6 
DATA 川上 太郎, 33, 営業 二 課 , パソ コン , 5, 181.5, 75.3 
DATA 木下 一 夫 , 25, 企画 課 , 書道 , 4, 170.2, 63.6 

【 結 果 】 

名 前 木下 三郎 


木下 三郎 28 総務 課 バ ソ コン 3 156.9 51.4 木下 三郎 を 入力 の 例 


(80) 【 プ ログ ラム 例 】 


TYPE shain タイ プ 型 

namae AS STRING * 8 名 前 年齢 、 所 属 , 特技 , 勤続 , 身長 , 体重 
nenre1i AS INTEGER 
shozoku AS STRING * 10 
tokugi AS STRING * 10 
kinzoku AS INTEGER 
shinchou AS SINGLE 
taiju AS SINGLE 














END TYPE 
DIM a(6) AS shain 配列 宣言 
FORi=0T05 イ デー タ の 読み 込み 


READ a(i).namae 
READ a(i).nenrei 
READ ai). shozoku 
READ a(i). tokugi 
READ a(i).kinzoku 
READ ai).shinchou 
READ a(i).taiju 

















NEXT i 

INPUT "勤続 年 数 ", ne 勤続 年 数 の 入力 

FORi=0105 勤続 年 数 が ne 以上 の 人 を リス ト 
IF aG⑪).kinzoku >= ne THEN PRINT a(i).namae 

NEXT i 

END 

DATA 大 山 和男 , 31, 営業 一 課 , 英会話 , 7, 163.8, 60.3 

DATA 木下 三郎 , 28, 総務 課 , パソ コン , 3, 156.9, 51.4 

DATA 上 田 次 郎 , 19, 営業 三 課 , 音楽 , 1, 172.8, 62.5 

DATA 玉井 久雄 , 24, 経理 課 , 英会話 , 2, 178.3, 70.6 

DATA 川上 太郎 , 33, 営業 二 課 , パソ コン , 5,181.5.75.3 

DATA 木下 一 夫 , 25, 企画 課 , 書道 , 4, 170.2, 63.6 

【 結 果 】 

勤続 年 数 4 4 を 入力 の 例 

大 山 和 男 

川上 太郎 

木下 一 夫 
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DEE FN 





【 例題 68】 DEF 
円 の 面積 を 求め る 式 8.14159*r*r (た だ し r は 半径 ) を 定義 し て , 次 に 半径 r を 入力 し 
て , 半径 r の 円 の 面積 を 求め る プロ グラ ム を つく れ . 











【 解 説 】 〇 DE に より 式 を 定義 し ます . 
Q① DEF fna(r)=3.14159* ェ * エ (て C よ っ て 3.14159*r*r を fna(r) と いう 名 前 で 定義 し ます . 
fn の 次 の a が 変数 名 で 最大 40 文字 まで 使え ます . 

③ ( ) 内 の r が パラ メー タ で r の 値 が 与え られ る と 8.14159*r*r の 値 を fna(r) が 持ち ます . た 
と えば r を 5 と する と fna(5) は 3.14159x5x5 と な り ま す . 

⑬ DEF FN 関数 は 定義 され た モジ ュー ル の 中 で の み 使 えま す . 他 の モジ ュー ル か ら の 参照 は で きま 
せん . 

④ DEF fna(r) の 型 は 単 精度 実数 型 で す . DEF fna?(r) と 明示 する と こと が で きま す . 














【 プ ログ ラム 例 】 
DEF fna (r) = 3.14159 * r * ェ ーーーーー 式 の 定義 
INPUT "r ":r 半径 r の 入力 
s = fna(r) 式 の 値 を 求め s 代入 
PRINT 27 で jrr ナナ 必 作 =": s 結果 の 表示 
END 
【 結 果 】 
r ? 123 123 を 入力 の 例 
ハン ケイ 123 ノ メン セキ = 47529.12 
r ? 5。8 5.8 を 入力 の 例 





ハン ケイ 5.8 ノ メン セキ = 105.6831 





【 例題 69】 複数 の パラ メー タ 
ax"+bx+o を 関数 で 定義 し , 次 に a&, b, cx の 値 を 代入 し て , ax*+bx+o の 値 を 求め る プ 
ログ ラム を つく ぐれ. 











【 解 説 】 〇 複数 の パラ メー タ を 使い ます . 
① DR fna(a,b,o,x)=a キ x+r+b*x+o で は ax"+bx+o を 定義 し ます . この と き の パ ラメ ー タ 
住 a。 D。 G。 交 の 4 つ で ず 。 
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a*+ bx+G の 定義 
&, b、c、 テ の 入力 


江 人 





【 プ ログ ラム 例 】 
DEF fna (a, b, c, x) =a ま X* ま x+b ま * 
INPUT "a,b,c,x 「: 0 65。 避 





3, 
y = fna(a, b, c, x) 


式 の 値 を 求め に 代入 











IFb>= 0 THEN 218 ="+" ELSE 215 =“" EE 4 - の と き の 記 号 の 表示 の た め の 処 理 
IFc>= 0 THEN 228 = "+ ELSE 228 ="「“ 
PRINT ai "ij xi の 27: 218: b: "お:』 xi 228: ci: = ェ Yー 結 果 の 表示 
END 
【 結 果 】 
ab で 。 ま 7 8 ちら 。2 3 3 -5,。 2, 3, の 入力 の 例 
3 * 3 “2 -5*3+ 2 = 14 
も で 7 あの 542 2, 5, 4, 2 を 入力 の 例 
2 * 2 2 + 5 *2+ ょ 4= 22 
ab。 で 7 ー9。7。ー6,2 -3, 7, -6, 2 を 入力 の 例 
-3 * 2 2 + 7 * 2 -6 =-4 
性 。 二 の 68 ょ = 2, 5, 3, -4 を 入力 の 例 
2 *-4 “2 + 5 *-4 + 3 = 15 
【 例題 70】 文字 列 を 値 と する 関数 式 


"Miocrosoft[ |"+a$ を 文字 列 と する 式 を 
つない で 表示 する プロ グラ ム を つく れ . 





定義 し , 次 文字 列 を 入力 し て , Microsoft と 























【 解 説 】 〇 文字 列 を 値 と する 関数 式 を 定義 し ます . 
① DEF fnx$(a$)="Microsoft[ |"+a$ の 定義 に よっ て "Miorosoft| |" と 文字 列 a$ を つない 
だ 文字 列 を 式 fnx$(a$) の 値 と し ます . 
【 プ ログ ラム 例 】 
DEF fnx$ (a$) = "Microsoft " + a$ 式 の 定義 
INPUT x$ x$ の 入力 
y$ = fnx$(x$) 式 の 値 を y$C 代 入 
PRINT y$ 結果 の 表示 
END 
【 結 果 】 
? Quick C ーー-- Quiok C を 入力 の 例 


Microsoft Quick C 
? Quick Basic 
Microsoft Quick Basic 


Quieck Basio を 入力 の 例 





【 例題 71】 関数 式 の 演算 


fnb(y) の 値 を 求め る プロ グラ ム を つく れ . 





a&? と b* を 求め る 式 を 各々 fnx(a) と fnb(b) で 定義 し , 次 に . x と y を 入力 し fnx(x)/ 








【 解 説 】 ① 関数 式 の 演算 を 行い ます . 
③ 下 の 定 義 で 関数 fnx と fnb を 定義 し ます . 
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10 章 式 の 定義 
ーー 


DEEF fn(a ) ニキ ネネ キネ & 
DEE fnb(b)=b*b 
* と y を 人 入力 し , z=fnx(x)/fnb(y) を 行う と x'"/y* を 求め て z C 代 入 し ます . 
も ゃ ちろ ん DEF fnx(a,b)=a*a*a/(b*b ) に よっ て 一 度 に 式 を 定義 で きま す が a* と b* を 別 の 
と と ろ で 使い た 場合 は 別々 に 定義 する 必要 が あり ます . 


⑯⑮ 

















【 プ ログ ラム 例 】 
DEF fnx (4) =a*a* ョ ーーーーーー8* の 式 の 定義 
DEF fnb (b) = b * b 一 一 D* の 式 の 定義 
INPUT x,y テ *, ゞ の 入力 
z = fnx(x) / fnb(y) 一 一 ーーーー デ 7" を 求め て z K 代 人 
PRINT xi 39//j ァ ) 2="iZz 結果 の 表示 
END 
【 結 果 】 
? 6.3。2.4 6.3, 2.4 を 入力 の 例 
6.3 ^3 / 2.4 ^2= 43.41094 
? 5,3 5. 3 
5 ^3 / 3 ^2= 13.88889 和 3 
7 42 4、 る を 入力 の 例 
4 ^3 / 2 “2= 16 





【 例題 72】 算術 関数 を 使っ た 関数 式 
ト 図 の 角度 k を 入力 し て , 距離 1 を 求め る プロ グラ ム を つく れ . 


ae 


【 解 説 】 〇 関数 定義 の 中 で 算術 関数 を 使い ます . 
① 関数 定義 の 中 で , Quiok BASTC の 持つ 関数 を 使う こと が で きま す . 次 の 定義 は 1 を 求め る 式 で 
す . 算術 関数 TAN ( 正 接 ) を 使っ て いま す . 
DRF fna(k)=2776/TAN(k/180*5.14159 ) 


























1 1 1 

gk 度 の と き の 1 を 正 接 gk 度 を ラジ アン KC 変換 
求め る 式 の 定義 

【 プ ログ ラム 例 】 
DEF fna (k) = 3776 / TAN(k / 180 * 3.14159) 式 の 定義 
INPUT "k ": k k 度 の 入力 
1 = fna(k) 1 を 求め る 
PRINT " 罰 ": ki " ド / ほ 7 振り =": 1: "mmーーーーーー 結果 の 表示 
END 
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【 結 果 】 
je YO 10 を 入力 の 例 
カク 10 ト ~ ノ トキ ノ キョ ヨリ = 21414.78 mm 
k ? 30 30 を 入力 の 例 
カク 30 ト ~ ノ トキ ノ キョ ヨリ = 6540.23 





k ? 70 70 を 入力 の 例 
カク 70 ト ~ ノ トキ ノ キヨ リ = 1374.356 m 


| 演習 問題 」 


(81) 【 例 題 72】 の 図 の 距離 1 を 入力 し て , 角 ji 度 を 求め る プロ グラ ム を つく れ . 

(82) a, b を 入力 し て ソ a'+b* を 求め る プロ グラ ム を つく れ . 

(83) 文字 列 を "で 囲む 式 を 定義 し , 文字 列 を 入力 し て , ” "で 囲ん で 表示 する プロ グラ ム を つく れ . 

(84) 文字 列 か ら 右 端 2 文字 を と り 出 し た 文字 列 を つく る 式 を 定義 し , 文字 列 を 入力 し て , 石 端 2 
文字 を 表示 する プロ グラ ム を つく れ . 

(85) 文字 列 か ら 左 端 2 文字 と 右端 2 文字 を と り 出し て つなげ る 式 を 定義 し , 次 に 文字 列 を 入力 し 
て 前 2 文字 と 後 2 文字 を つない で 表示 する プロ グラ ム を つく れ . 

(86) "Microsoft も "の aga 番目 か ら b 個 の 文字 を と り 出 す 式 を 定義 し , 次 に 数 x, y を 信 力 し て x 
番目 か ら y 個 の 文字 を と り 出 し て 表示 する プロ グラ ム を つく れ . 





[ 解 答 ] 


(81) 【 プ ログ ラム 例 】 
DEF fna (1) = ATN(3776 / 1) / 3.14159 * 180 





k 度 を 求め る 式 の 定義 











INPUT "1 ": 1 + の 入力 

k = fna(1) jk 度 を 求め る 
PRINT "和男 :1: 7m/ ほ 7 ドド =i ki "ドド ーーー 一 結果 の 表示 

END 

【 結 果 】 

1 ? 21414 21414 を 入力 の 例 
キョ リ 21414 m ノ ト キ ノ カ クト ~= 10.00036 ト ~ 

1 ? 100000 100000 を 入力 の 例 





キョリ 100000 m ノ ト キ ノ カク ト *= 2.162463 ト ~ 


(82) 【 ブ ログ ラム 例 】 


DEF fnx (a, b) = SQR(a* ま a+b ま *D) gb* を 求め る 式 の 定義 














INPUT ab“: ab &,。 b の 入力 
y = fnx(a, b) Ya 上 b* を 求め る 
PRINT :y 結果 の 表示 
END 
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【 結 果 】 
a,b ? 3,.4ーーーーー5, 4 を 入力 の 例 
5 
ab ? 25。19 25, 19 を 入力 の 例 
31 .40064 
【 プ ログ ラム 例 】 
DEF fnx$ (a$) = CHRS(34) + a$ + CHR$(34) 一 一 "文字 列 "の 式 の 定義 
INPUT x$ 文字 列 の 入力 
y$ = fnx$(X$) 文字 列 を ” "で 囲む 
PRINT y$ 結果 の 表示 
END 
【 結 果 】 
? Quick BasicC- 一 ーーーーーーQuiok Basioc を 入力 の 例 
"Quick Basic"' 
? タノシイ プ ァ ログ "ラム ーーーーーーーー タ ノシ イ プロ グラ ム を 入力 の 例 


"タノシイ フロ グラ ム " 


【 ブ プロ グラ ム 例 】 

DEF fnx$ (a$) = RIGHTS(a$, 2) 右端 る 文字 を と り 出 す 式 の 定義 
INPUT x$ 文字 列 の 入力 

y$ = fnx$(x$) ーーーーーーーー 文字 列 か ら 2 文字 を と り 出 す 
PRINT y$ 結果 の 表示 

END 


【 結 果 】 


? picture- 一 一 一 一 一 一 pioture を 入力 の 例 
re 
? computer 一 一 一 一 computer を 入力 の 例 
er 











【 プ ログ ラム 例 】 

DEF fnx$ (a$) = LEFT$(a$, 2) + RIGHT$(a$, 2) 一 一 左 2 文字 と 右 2 文字 を と り 出す 式 の 定義 
INPUT x$ 文字 列 の 入力 

y$ = fnx$(x$)- 前 る 文字 と 後 2 文字 を と り 出し て つなぐ 
PRINT y$ 結果 の 表示 

END 


【 結 素 】 


? 互 i3antーーーーーーーーーgiant を 入力 の 例 
gint 

? teacherー 一 ーー 一 一 一 teacher を 入力 の 例 
teer 
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Crosse ニ ニーeeeeesemーーー ニ ュ ーーー モ ーー デー ペー ーー ーー デー 


(86) 【 プ ログ ラム 例 】 


DEF fnx$ (a, b) = MIDS("Microsoft", a, b) 一 一 "Microsoft" の 前 か ら a 番目 か ら b 個 と り 出す 式 の 定義 
INPUT xy *, ゞ の 入力 
PRINT fnx$(x, y) 7Miorosof も "の 前 か ら ェ 番目 か ら y 個 と り 出 し て 表示 
END 











【 結 果 】 


? 2。3ーーーーーーー る, 3 を 入力 の 例 
GT 

? 3。 ゥ ーーーーーーー5。 る を 入力 の 例 
CT 


? 4,5 一 ーーーーー 一 4, 5 を 入力 の 例 
roSof 


786 





11 章 プロ ンジ ュ ア ・ サ ブル ー チ ン 


DECLARE SUB, SUB, END SUB, CALL 





【 例題 73】 プロ シン ジュ ア ・ サ ブル ー チ ン 
メイ ンプ ログ ラム で "Quiok" と 表示 し , サブ ルー チン sa で "[ BASIC” と 続け て 表示 する 





プロ グラ ム を つく れ . 





【 解 説 】 〇 プロ シ ジ ュ ア の うち サブ ルー チン を 使い ます . 
① サブ ルー チン は メイ ンプ ログ ラム と は 別に 作成 し て , メイ ンプ ログ ラム か ら 呼 び 出 し て 何 回 で $ 使 
える 便利 な 手法 で す . 次 の 例 の よう に c, 処理 1 を 何 回 も 使う と き , 毎回 その 処理 を 記入 せ ず C, サ 
プ ブルー チン と し て 別 の 場所 に し まっ て お いて , 呼び 出し て 使え ば , 処理 1 は 1 回 書け ば よい と と に 























な り ま す . 
処理 1 を 必要 の つど 記入 し た プロ グラ ム 処理 1 を サブ ルー チン 化し た プロ グラ ム 
7 / 
処理 1 サブ ルー チン の 呼び 出し 
7 7 
処理 1 サブ ルー チン の 呼び 出し 
7 7 
| 処理 1 | サブ ルー チン の 呼び 出し 
4 7 
(処理 1 の 内 容 が 100 行 に な る よう な サブ ルー チン 
場合 を 考え る と と の プロ グラ ム の 大 変 処理 1 











さ が よ くわ か り ま す ) 


③ 最初 は 簡単 な 例 で す . まず サブ プロ グラ ム KC 名 前 を つけ て 宣言 し ます . 
DECLARE SUB sa( ) 

DECLARE SUB サブ プ ロ グラ ム 名 と な り ま す . サブ プロ グラ ム 名 の 後 は ( ) を つけ ます . と の 意味 

は 後 で よし ます が , サブ プロ グラ ム へ 引数 を 渡す と と が ある か ら で す . 今回 は 引数 は あり ませ ん . 
サブ プロ グラ ム の 呼び 出し は CALL サブ プロ グラ ム 名 また は サブ プロ グラ ム 名 の み で す . た だ し , 

サブ プロ グラ ム 名 の み で サブ プロ グラ ム を 呼び 出す と き は 必ず DECLARE SUB を 使っ て サブ プロ グ 

ラム の 宣言 を し て お か ね ば な り ま せん . CALt を 使う 場合 は DECLARE SUB が な く て も ゃ 使え ます 
サブ プロ グラ ム は 先頭 に SUB サブ プロ グラ ム 名 を つけ て つく り ま す . SUB プロ グラ ム 名 を 入力 す 
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③ 


④) 
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る と (今回 は SUB sa | ) 次 の よう K 表 示さ れ ま す の で , サブ ププ ロ グラ ム の 内 容 を か きま す . 
SUB sa 
END SUB 
⑤ 本 例 で は メイ ンプ ログ ラム で "Quiock" を 表示 し た 後 , サブ プロ グラ ム sa を 呼ん で "[]BASIC”" 
を 表示 し ます . 





DECLARE SUB sa( ) サブ プロ グラ ム sa の 宣言 
7 
S& キー サブ ププ ログ ラム sa 
) を 呼び 出し て 実生 
END 
SUB sa 終了 する と sa の 次 へ も どる 
7 
END SUB ーー 
【 プ ログ ラム 例 】 
DECLARE SUB sa () 一 一 サブ ルー チン sa の 宣言 
PRINT "Quick": 一 一 一 一 一 "Quiok" の 表示 
Sa 
END -- 一 一 一 ーーーーーー サブ ルー チン sa の 呼び 出し 
SUB sa サブ ルー チン sa 
PRINT“ BASIC 一 士 *CmMsre・o 
END SUB 
【 結 果 】 


Quick BASIC 





【 例題 74】 数 値 を 引数 と し て .、 サブ ルー チン の 実行 
&g を 88, b を 22,、 co と d を 0 と し て サブ ルー チン so を 実行 し サブ ルー チン で a と も b の 
積 と 商 を 求め て ,。 メイ ンプ ログ ラム へ も どり 結果 を 表示 する プロ グラ ム を つく れ . 








【 解 説 】 〇 数 値 を 引数 と し て サブルーチン を 実行 し ます . 

① DECLARE SUB so(a,b,o,d) は サブ ルー チン so を 宣言 し ます . こと の と き , 引数 と し て a, 1. 
c, d を 持ち , その 値 を サブ ルー チン へ 渡し ます . a, b, c, d は 引数 が 4 個 あ り . 各々 が 実数 型 で 
ある と と を 示し ます . と と で は , 数 と 型 が 意味 を 持ち ます . 名 前 は 意味 を 持ち ませ ん . サブ ルー チン 
に 引数 を 渡せ る と いう と と は 従来 の BASTC に こない すばらしい 特長 で す . その よさ に つい て は 項 で 
説明 し ます . 

⑬⑨ サブ ルー チン で は SUB soc(w,x, ゞ ,z) と し ます . 引数 を w。x, y, z の 順に 受け と り ま す . と 
の W, 到 , ゞ , 2 を 仮 引数 と いい ます . 仮 引数 の 数 と 型 , この 場合 は 数 が 4 個 で 実数 型 が サブ ルー チ 
ン を 呼び 出す と き の 引数 すなわち 実 引数 の 数 と 型 C 合 っ て いな けれ ば な り ま せん . 

78g 
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⑬③ sc a, b, c, d に よっ て サブ ルー チン soc を 呼び 出し 実行 し ます . と の と き a=88, b=22, o= 
0, d=0 が 代入 され て いま すか ら , サブ ルー チン の 仮 引数 w に は a の 値 88. xr に は b の 値 22. ゞ 
に は oc の 値 0.、 z C は d の 値 0 が 引き 渡さ れ ま す . と の と き の a, b, c, d を 実 引数 と いい ます . 
④ サブ ルー チン sc で は a, b, c, d の 値 を w, x, y, z に 受け て y に w*x, z に w/x の 値 を 求 
め ま す . こと の 結果 , 実 引数 の c は 了 の 値 1936.d は z の 値 4 と な り ま す . 
⑤ と の 関係 を 図示 する と 次 の よう に な り ま す 
a=88, b=22, oc=0, d=0 と する . 
4 





SG 渦 ぶ b。 Q@。 9 実 引数 a, b、c, d が w, x, ゞ , 2 C 渡 され, 
y(Cw*x,、 2Z に W/x を 行っ た 結果 c(Cy,d 
| IC z の 値 が も どっ て くる . 


END |88 |22 |0 |O 
SUB soc(W, テ g。 ゞ Y。 る 2) 











マニ W キ ネ 文 y の 値 1936 一 ーー 
Z ニ W/ z の 値 4 
END SUB 


⑥ で は 引数 を サブ ルー チン K 渡 せる メリ ッ ト は 何で し ょ うか . 結論 は サブ ルー チン の 独立 性 が 高い と 
いう こと で す . すなわち , 実 引数 の 値 に よっ て , サブ ルー チン の 変数 の 値 が 決ま り ま す . で すか ら 実 
引数 を 決め ず に サブ ルー チン へ は 入れ ませ ん . 一 方 , 従来 の BASTC で は 変数 は ど と で 使っ て る 共通 
で すか ら , 本 例 で は w,。 x, ゞ , 2 を ど と か で 使っ て いた りす る と 思わ ぬ と と が お ことり ます . 

t=0 

メニ 5 

wa t。 交 

7 

END 

SUB wa(p,q ) t=0 を p に , =5 を q 渡す 
FOR i=1 TOq p C 1+2+…-q の 合計 を 求め る 
D=p+i 

NEXT i 

END SUB 


p と q の 値 は メイ ンプ ログ ラム か ら 独 立 し て いる . p と q が 
メイ ンプ ログ ラム で 使わ れ て も それ は サブ ルー チン の pp と q 
と は 別 の も の で ある . 


(従来 の BAS1C) 
T=0 
メニ 5 
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GO0 SUB 〇 〇 OO 〇 
7 


〇 つつ 〇 TEOR エ =1 TO T=0,X=5 と し て 
= エ + エ T (Cc 1+2+… 双 を 求め る 
NEXT T 
RETURN 


メイ ンプ ログ ラム の T, XX は サブ ルー チン の T, えと 共通 . 
メイ ンプ ログ ラム で T、 駐 を 使う と サブ ルー チン を 使わ な 
く て も サブ ルー チン の T, XX の 値 も 代入 され て いる . 


【 ブ ログ ラム 例 】 


DECLARE SUB sc (a, b, c, d) サブ ルー チン sc の 宣言 
a=88:b=22:c = 0: d = 0 一 一 a. b, c, d に 初期 値 を 代入 














sc a, b, c, d サブ ルー チン se の 呼び 出し 

PRINT ai "Wi bi "ic 結果 の 表示 

PRINT ai 「/ ェ bi " デ : 0 

END 

SUB sc (W, x, y, 2) サブ ルー チン so 
Y ミ W ネ *X ゞ と z KC 計 算 結果 を 代入 
2Z=W/xXx 

END SUB 

【 結 果 】 
88 * 22 = 1936 
88 / 22 = 4 





【 例題 75】 文字 列 を 引数 と する サブ ルー チン 

メイ ンプ ログ ラム は サブ ルー チン sa1 と sa2 の 宣言 と 各々 の 呼び 出し と し , サブ ルー チン 
sa1 で "Let*s study", サブ ルー チン sa2 で "[ Quick BASIC.” を 表示 する プロ グラ ム 
を つく れ . た だ し , サブ ルー チン sa1 の 呼び 出し で 引数 と し て "Let's study"”,。 サブ ルー 
チン sa2 の 呼び 出し で 引数 と し て "| Quick BASTC." を 持つ も ゃ の と する . 











【 解 説 】 ⑥ 文字 列 を 引数 と し て サブ ルー チン を 呼び 出し 実行 し ます . 
① DECLARE SUB sa1(a$) で は サブ ルー チン sa1 を 宮 言 し ます . この と き (a&$) に よっ て 引数 が 
文字 型 で ある と と を 明示 し ます . 
③ sa1"Let's study "で は 実 引数 と し て "Let*s Study" を サブ ルー チン へ 渡し ます . 
③⑨ サブ ルー チン sa1 は SUB sa(x$) で 始ま り ま す . 仮 引 数 が x$ で す . 実 引数 の 文字 列 を x$ 受 
け と り ま す : 
79 ひ の 
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ラマ エ て テテ ニニ ニニ ーー 一 
エーーーーー ぁ $ が 文字 型 を 示す 
DECLARE SUB sa1(a$) サブ ルー チン の 宣言 


( ーーーーーーー 実 引数 は " "で 囲ん で 示す 
se OOOOO' サファ ー チ ン の WPCilL 














4 引き 渡す 


END エーーー 仮 引数 は 実 引数 と 同じ 数 と 型 に する 


SUB sa1(x$ ) 
7 


END SUB 
【 プ ログ ラム 例 】 
DECLARE SUB sal (3$) 
DECLARE SUB sa2 (b$) 
sal "Let's study- 


sa2 " Quick BASIC.^ 
END 





SUB sa1 








ーーーーー サブ ルー チン 


サブ ルー チン sa1 の 宣言 
サブ ルー チン sa2 の 宣言 





サブ ルー チン sa1 の 呼び 出し 
サブ ルー チン sa2 の 呼び 出し 





(x$) 
PRINT 9: ーーーー | 
END SUB 


サブ ルー チン Sa1 
x$ の 表示 


サブ ルー チン sa る 
y$ の 表示 


SUB sa2 (y$) 
MT ポーーー ト - 
END SUB 


【 結 果 】 
Let's study Quick BASIC. 





【 例題 76】 CALL に よる サブ ルー チン の 呼び 出し 
x% を 12, y% を 25, 2$ を "="” と し て サブ ルー チン abo を CArt で 呼び 出し , x% と y% の 
積 を 求め 式 を 含め て 結果 を 表示 する プロ グラ ム を つく れ . 








【 解 説 】 〇 CALht で サブ ルー チン を 呼び 出し ます . 
① CALL サブ ルー チン (引数 ) に よっ て , 引数 を 持っ て サブ ルー チン を 呼び 出し ます . CALL を 使う 
場合 サブ ルー チン の 宣言 は し て いな く て も サブ ルー チン を 呼び 出せ ます 
【 プ ログ ラム 例 】 
DECLARE SUB abc (x% y% 2$) サブ ルー チン abo の 宣言 


X% =12:y% =25: 25 = アデ ェ 、。y, 2 の 代入 
CALL abc(x% y%. 2$) サブ ルー チン の 呼び 出し 














END 

SUB abc (p% q%. r$) サブ ルー チン 
PRINT p%: "iq%: TS: DP%* wー 積 を 求め て 表示 

END SUB 
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【 結 果 】 


12 * 25 = 300 





【 例題 77】 CALL に よる サブ ルー チン の 呼び 出し と 値 の 受け 渡し 

【 例 題 76】 と 同様 KC x% を 12, y% を 25, z$ を = と し て サブ ルー チン abo を ca11 で 呼び 
出し , *% と ?% の 積 を 求め , 式 を 含め て 結果 を 表示 し た 後 、 x%* を 求め て , メイ ン ル ー チ ン へ も 
どり 結果 を 表示 する プロ グラ ム を つく れ . 








【 解 説 】 〇 サブ ルー チン か ら メ イン ルー チン へ の 値 の も ど し 方 を 学び ます . 
① x% を 12, y% を 25, 2$ を "=" と し て サブ ルー チン atbo を ca11 し て 。 テ x%*y% を 求め て 表示 す 
る 部 分 は 【 例 題 76】 と 同じ です . た だ し , それ に 加え zz% の 引数 を つけ ます . 
②③ 次 に サブ ルー チン の 中 で 次 の よう に し ます . 
d%=aa%*aa% 
と の 結果 aa&% は 引き 渡さ れ た x% の 値 。 bb% は 引き 渡さ れ た % の 値 , d% は aa&% す な わ ち *% の る 
乗 の 値 。 cc$ は "=" と な り ま す . この 状態 で メイ ン へ も ゃ どり ます . 結果 は サブ ルー チン を ca11 し 
た 対応 する 引数 へ 返さ れ ま すか ら 次 の よう に な り ま す . 
ェ % Y% Z$ 2% 
1 1 1 | し た が っ て , 























aa% bb% co$ d% 2z2% は d% す な わ ち aa%“ す な わ ち x%* と な る 
【 プ ログ ラム 例 】 
DECLARE SUB abc (a% b% c$, d%) 一 ーー サブ ルー チン ato の 宣言 
x% = 12 値 の 代入 
y% = 25 | 
Z$ 三 テニ" 
CALL abc(x% y% 28, 2Z2%) サブ ルー チン の 呼び 出し 
PRINT x%: "2=": 2Z2% 結果 の 表示 zz% は サブ ルー チン で 求め る 
END 
SUB abc (aa% bb% cc$, d% サブ ルー チン 
PRINT aa%: "*": bb%: cc$: aa% * bb% *%* ゞ % を 表示 
d% = aa% * aa% *% の 2 乗 を 求め て d% へ 代入 
END SUB と の 値 が メイ ン ル ー チ ン へ 返さ れる 
【 結 果 】 
12 * 25 = 300 
12 ^2= 144 
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【 例題 78】 配列 を 引数 と する サブ ルー チン 
トト の 20 デー タ を 配列 に 読み , その 配列 を 実 引 数 と し て サブ ルー チン abcd を 呼び 出し 実行 
し て 和 を 求め る プロ グラ ム を つく れ . 





デー タ 2 3, 5, 8, 4, 6, 1 2, 8, 4 
2。 5, 6, 4、 2 8,。 9。 7。 2 5 
う 5。 4。 4。 2、 7。 1、 9。 8, 8, る 


> 











【 解 説 】 〇 配列 を 実 引数 と し て サブ ルー チン を 実行 し ます . 

① DECLARE SUB abod(q( ) ) で 配列 を 引数 と する サブ ルー チン abed を 宮 言 し ます . qa() は 1 
つの 実数 型 配列 が 引数 で ある と と を 示し ます . と と で は 配列 の 数 と 型 が 問題 と な り ま す . 

③ CALtL abcd(x( ) ) は 配列 x( ) を 実 引数 と し て サブ ルー チン abcd を 呼び 出し 実行 し ます . 

③ SUB abod(y( ) ) は y( ) が 仮 引数 で 実 引数 x( ) を 仮 引数 y( ) が 受け と り ま す . し た が っ て , 
(0) は x(0), y(1) は x(1), y(2) は x(2)…y(29) は x(29) と な り ま す . 

【 プ ログ ラム 例 】 


DECLARE SUB abcd (q())ーーーーー サ ブ プルー チン abed の 宣言 
DIM x(30) 配列 x(30 ) に 値 を 代入 
FOR i = 0 10 29 

READ xi) 
NEXT i 
CALL abcd(x() ) 一 一 ーーーーー サ プ ル ー チ ン abed を 呼び 出し 実行 
END 








SUB abcd (y()) サ プ ル ー チ ン abod 













wa = 0 和 を 求め る 
FOR i =0TO29 

wa = wa + y(i) 
NEXT i 


PRINT wa 
END SUB 


【 結 果 】 
142 


和 の 表示 





【 例 題 79】 文字 配列 を 引数 と する サブ ルー チン 

下 の デ ー タ を 配列 に 読み , それ を 実 引数 と し て サブ ルー チン abed を 呼び 出し , 表示 する プ 
ログ ラム を つく れ . 

デー タ jTokyo, Osajka, Nagoya, Koohi、 Miyazaki、 


Sapporo, Sendai, Moriojka, Ube、 Kokur& 
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【 解 説 】 ⑥ 文字 配列 を 引数 と し て サブ ルー チン を 呼び 出し ます . 

① DECLARE SUB abod(x$( ) ) に よっ て サブ ルー チン abod を 宣言 し ます . 引数 は 文字 配列 と し 
ます . x$( ) が 文字 配列 を 示し ます . 

②③ CAtLt abcd( e$( ) ) で 実 引 数 を e$( ) と し て サブ ルー チン abcd を 呼び 出し ます . 

③ サブ ルー チン abed は 仮 引数 y$( ) で 実 引数 e$( ) を 受け と り ま す . 














【 プ ログ ラム 例 】 

DECLARE SUB abcd (x$()) サブ ルー チン abod の 宮 言 
DIM e$(10) 配列 e$( ) に デー タ を 読み 込む 
FOR i=0TO9 

READ e$(⑪) 
NEXT i 
CALL abcd(e$()) サブ ルー チン abed を 呼び 出す 
END 


DATA Tokyo, 0saka, Nagoya, Kochi, MiyaZaki 
DATA Sapporo, Sendai, Morioka, Ube, Kokura 





SUB abcd (y$()) サ プ ル ー チ ン abod 


FORi=0TO9 表示 
PRINT y$G) 
NEXT i 
END SUB 
【 結 果 】 


Tokyo 
Osaka 
Nagoya 
Kochi 
Miyazaki 
Sapporo 
Sendai 
Morioka 
Ube 
Kokura 














【 例題 80】 引数 の 型 宣言 の 仕方 
整数 型 、 文字 型 。 実 数 型 を 引数 と する サブ ルー チン abecd を 家 言 し a% を 1000, b$ を " プ 


ログ ラム "。 co! を 2.56 と し て サブ ルー チン abed を 呼び 出し , 順に 表示 する プロ グラ ム を つ 
くれ . 








【 解 説 】 〇 宣言 文 の 中 で 引数 の 型 の 書き 方 を 示し ます . 

(① DECLARE SUB abod(x AS TINTRGER,y AS STRTNG,z AS STINGLE) と し て サブ ルー チン 
&bod を 宣言 し ます . と の と き , 引数 は 数 と 型 が 問題 で すか ら x AS INTRGER に よっ て 事 数 型 が 
1 つ , y AS STRTNG に よっ て 文字 型 が 1 つ , z AS SINGLE に よっ て 実数 型 が 1 つ を 指定 し ます . 
と れ は (x%, y$、 z! ) で 表わす こと も ふ で きま す . 次 に 各 型 の 表わし 方 を 示し ます . 

型 型 の 指定 の 仕方 ① 型 の 指定 の 仕方 ③ 
整数 弄 ェ % x AS TINTEGRER 
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SPP や =ー ロ トー デモ ーー ニー ドー ニー ニー ニャー と 

















長 整数 型 ェ & ェ x AS LONG 
単 精度 実数 型 x! x AS SINGLE 
倍 精 度 実数 型 # x AS DOUBLE 
文字 弄 テ ェ AS STRING 
【 プ ログ ラム 例 】 
DECLARE SUB abcd (x AS INTEGER, y AS STRING, z AS SINGLE) 一 サブ プルー チン の 宮 言 
a% =1000:b5 = アロ の 入 ": c! =2.56 変数 に 初期 値 を 代入 
CALL abcd(a%, b$, c!) 一 一 ーーーーーーーーーーーーーーーーーーーー サブ ルー チン abod の 呼び 出し 
END 
SUB abcd (o% p$, q!) サ プ ブルー チン abod 
PRINT o%: p9: q! ] 表示 
END SUB 
【 結 果 】 


1000 ファ ログ ラム 2.56 





【 例題 81】 サブ ルー チン か ら サ ブル ー チ ン の 呼び 出し 

メイ ンプ ログ ラム で "Quiok "を 表示 し ,. サブ ルー チン sa を 呼び 出し て "| BASIC" を 表示 
し た 後 , と の サブ ルー チン か ら サ ブル ー チ ン saa を 引数 を "[] オ [] マ ナビ マシ ョ ウ "と し て 呼 
び 出 し 表示 する プロ グラ ム を つく れ . 








【 解 説 】 〇 サブ ルー チン か ら サ ブル ー チ ン を 呼び 出し ます . 

① メイ ンプ ログ ラム か ら サ ブル ー チ ン を 呼び 出す の と 同じ 方 法 で サブ ルー チン か ら 別 の サブ ルー チン 
を 呼び 出す と と が で きま す . 

②③ 本 例 で は メイ ンプ ログ ラム で "Quiok" を 表示 し た 後 , 引数 な し で サブ ルー チン sa を 呼び 出し , 
サブ ルー チン sa で "[ BASIC" を 表示 し , 次 に , そこ か ら サ ブル ー チ ン saa を 引数 を "[ 」 オ [マナ 
ビ マ ショ ウ "と し て 呼び 出し 表示 し ます - 








【 プ ログ ラム 例 】 
DECLARE SUB sa () 一 ーーーーー サ プルー チン sa の 宣言 
DECLARE SUB saa (a$) サブ ルー チン saa の 宮 言 
PRINT "Quick": 一 ーーーーーー "Quiok* の 表示 
S4 サブ ルー チン sa の 呼び 出し 
END 





SUB sa サブ ルー チン sg 
PRINT "BASIC': BAS1IC" の 表示 
saa "オォ オマル マ ョ リド サブ ルー チン saa の 呼び 出し 
END SUB 
SUB saa (x$) サブ ルー チン sag 
PTS ーーーーー| "4 
END SUB 
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【 結 果 】 


Quick BASIC オ マナ ヒ ~ マ ショ ウ 





(87) "プロ シー ジャ ノ ヨ ビ ダシ "を 表示 し た 後 サ ブル ー チ ン a を 呼び 出し , サブ ルー チン a 
と 表示 する プロ グラ ム を つく れ . 
(88) & を 50,. b を 36, oc と d を 0 と し て それ を 実 引数 と し て サブ ルー チン sb を 呼び 出し 実行 
し て , & と b の 和 と 差 を 求め 、 メイ ンプ ログ ラム に も どっ て 結果 を 表示 する プロ グラ ム を つく 
れ . 
(89) "Quiok BASIC" を 表示 し た 後 サ ブル ー チ ン a を 呼び 出し て , "[]MS-D08 "を 表示 する プ 
ラペ を る くれ 
(90) サブ ルー チン abecd を 引数 が 2 つの 実数 型 と し て 宣言 し 。 125.357 と 18.2546 を 実 引数 
と し て サブ ルー チン aboed を 呼び 出し , 積 を 求め て 表示 する プロ グラ ム を つく れ . 
(91) 下 の デ ー タ を 使っ て , 配列 e$(10) と f(10) に 読み . と れ を 実 引 数 と し て サブ ルー チン 
abod を 呼び 出し , 表示 する プロ グラ ム を つく れ . 
デー タ Tokyo, 10, Osaka、8、 Nagoya、 6, Kochi、 
9 ら , Miyazaki、 4、 Sapporo、 5、 Sendai、 4、 
Morioka,、 32、Ube、 2、 Kokura, 4 
(92) メイ ンプ ログ ラム で aa$ を "| ]BASTC"。 "bb$ を "| |C"。 co$ を "| Imortran" と し て , サ 
プ ブルー チン a, b, c を 呼び 出し , "Quiok” の 後に 各々 aa$、 bb$, co$ の 内 容 を 追加 し て 表 
示す る プロ グラ ム を つく れ . 
(93) 次 の 配列 デー タ を サブ ルー チン に 渡し , 番号 を 入力 し て , その 順番 の デー タ を 表示 する プロ 
グラ ジ ム を つく ぐれ. 
Tkebukuro, Otsuka, Sugamo, Komagome、 Tabata. 
Nishinippori、Nippori, Uguisudani, Ueno、 
Okaohimaochi, Akihabara, Kanda, Tokyo 
(94) (93) の 配列 デー タ を サブ ルー チン 引き渡し, "T" で 始ま る 駅 名 を 表示 する プロ グラ ム を 





5 ぐ 激 > 

(95) 3.14159 を 実 引数 と し て サブルーチン a に わた し , 半径 10 の 円 の 面積 を 求め る プロ グラ 
ム を つく れ . 

(96) 実数 22.857 と 整数 5 を 実 引数 と し て サブ ルー チン a を 呼び 出し , 23.857? を 求め る プロ 
ダグラム を つぐ くれ. 


(97) 整数 x% y% を 入力 し て , x% の y% 乗 を サブ ルー チン で 求め て 表示 する プロ グラ ム を つく れ . 
た だ し , x% の y% 乗 が 10000 を こえ る と き は さら C に サブルーチン へ 分 岐 し て "x%~y%>=100 
00" と 表示 する も の と する - 
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(88) 


(89) 
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[ 解 答 ] 
【 ブ プロ グラ ム 例 】 
DECLARE SUB a ()ーーーーーーーーー サ ブル ー チ ン a の 宜 言 
PRINT アア ツゲ ャ ダダ ゲ 表示 
a サブ ルー チン a の 呼び 出し 
END 
SUB a サブ ルー チン ぁ & 
PRINT "97 ルル 昌 
END SUB 
【 結 果 】 
フ " ロ シ ー シ * ャ ノ ヨ ヒ ^ タ ^ シ 
サフ ルー チン a 
【 プロ グラ ム 例 】 





DECLARE SUB sb (a, b, c, d) サブ ルー チン sb の 宜 言 

















a=50:b=36:c=d=0O a, b, c、d の 初期 値 を 代入 
sb a, b, c, dーーーーーーーーーーーーー サブ ルー チン Sb の 呼び 出し 
PRINT ai "や ij bi "=:jc 結果 の 表示 
PRINT ai "ーー bi =: 己 ーー 
END 
SUB sb (w, x, y, zZ)ーーーーーーーー サ ブル ー チ ン sb 
YY ミニ WTX 和 と 差 を 求め る 
END SUB 
【 結 果 】 
50 + 36 = 86 
50 - 36 = 14 
【 ブ プロ グラ ム 例 】 
DECLARE SUB a ()ーーーーーー サ ブルー チン a の 宣言 
PRINT "Quick Basic': 表示 
CALL a サブ ルー チン a の 呼び 出し 
END 
SUB a サブ ルー チン a 
PRINT “ 2 
END SUB 
【 結 果 】 


Quick Basic MS-DOS 
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(90) 


(31) 


(92) 




















【 プ ログ ラム 例 】 
DECLARE SUB abcd (x AS SINGLB, y AS SINGLE) サナ プルー チ ン abod の 宣言 
a! = 125.357: b! = 18.2546 & と bK 値 を 代入 
CALL abcd(a!, b!) サブ ルー チン abcd の 呼び 出し 
END 
SUB abcd (o!, p!) サブ ルー チン abcd 
PRINT oi pi ギ 0!* ーーーー イ 時 
END SUB 
【 結 果 】 


125.357 * 18.2546 = 2288.342 


【 プ ログ ラム 例 】 
DECLARE SUB abcd (x$0, y()) サブ ルー チン の 宣言 
DIM e$(10), f(10) 配列 C デ ー タ の 読み 込み 
FORi=0TO9 

READ e$⑪), fi) 
NEXT i | サブ ルー チン abed の 呼び 出し 
CALL abcd(e$0), f()) 
END 
DATA Tokyo, 10, 0saka, 8, Nagoya, 6, Kochi, 3, Miyazaki, 4 
DATA Sapporo, 5, Sendai, 4, Morioka, 3, Ube, 2, Kokura, 4 

















SUB abcd (y$0, z0) | サブ ルー チン abcd 
表示 


FORi=0TO9 
PRINT y$G⑪ ): zG⑪) 
NEXT i 
END SUB 
【 結 果 】 


Tokyo 10 
Osaka 8 
Nagoya 6 
Kochi 3 
Miyazaki 4 
Sapporo 5 
Sendai 4 
Morioka 3 
Ube 2 
Kokura 4 











【 プ ログ ラム 例 】 


DECLARE SUB a (2$) サブ ルー チン a, b, c の 宣言 
DECLARE SUB b (2$) 
DECLARE SUB c (2$) 


aa$ = ” Basic- 値 の 代入 
bb$ ="CY 
cc$ = "Fortran" 
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(94) 
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CALL a(aa$) 
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CALL b(bb$) 
CALL c(cc$) 
END 


サブ ルー チン の 呼び 出し 





SUB a (Z2$) 
PRINT "Quick" + zz$ 
END SUB 


SUB b (22$) 


サブ ルー チン 





PRINT “Quick" + ZZ$ 
END SUB 


SUB c (2Z2$) 


サブ ルー チン b 





PRINT “Quick'+ 22$ 
END SUB 


【 結 果 】 


Quick Basic 
Quick C 
Quick Fortran 





【 プ ログ ラム 例 】 
DECLARE SUB a (x$()) 





サブルーチン c 


サブ ルー チン ぁ a の 宣言 


DIM z$(1 10 13) 配列 z$C 値 を 読み 込む 
FOR i = 1 10 13 

READ z$(i) 
NEXT i 


CALL a(2$()) 
END 


配列 の 値 を 実 引数 と し て サブ ルー チン a を 呼び 出す 


DATA Ikebukuro, 0tsuka, Sugamo, Komagome, Tabata 
DATA Nishinippori, Nippori, Uguisudani, Ueno 
DATA Okachimachi, Akihabara, Kanda, Tokyo 


SUB a (Zzz$() ) サブ ルー チン & 
INPUT x% x*% を 入力 し て 添字 を x% と する 配列 の 値 を 表示 
PRINT zz$(x ぬ め 

END SUB 

【 結 果 】 

の 旨 3 を 入力 の 例 

Sugamo 

合 7 7 を 入力 の 例 

Nippori 

【 プ ログ ラム 例 】 


富 革 


サブ ルー チン ga の 富 言 





DECLARE SUB a (x$()) 


配列 2$ に 値 を 読み 込む 





DIM z$(1 10 13)- 
FOR i =1 10 13 
READ z$(⑪) 


] 





NEXT i 
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(95) 


(96) 





CALL a(z$() ) 一 ーーーーーーー 配 列 の 値 を 実 引数 と し て サブ ルー チン a を 呼び 出す 
END 

DATA Ikebukuro, 0tsuka, Sugamo, Komagome, Tabata 

DATA Nishinippori, Nippori, Uguisudani, Ueno 

DATA 0kachimachi, Akihabara, Kanda, Tokyo 

















SUB a (2Zz$()) サブ ルー チン ぁ 

FOR i = 1 TO 13 *m" で 始ま る 文字 列 を 表示 
IF ASC(Zz$(i)) = 84 THEN PRINT zz$(i) 

NEXT i 

END SUB 

【 結 果 】 

Tabata 

Tokyo 

【 プ ログ ラム 例 】 

DECLARE SUB a (x!) 一 ーー サブ ルー チン a を 宣言 

Z! = 3.14159 一 一 ーーーーー z ! に 値 を 代 人 

CALL a(z!) -- 一 ーーーーーーー 2 ! を 実 引数 と し て サブ ルー チン a を 呼び 出す 

END 

SUB a (zz!) -- 一 ーーーーーー サ ブ プルー チン & 
0 
PRINT s 

END SUB 

【 結 果 】 

314.159 

【 プ ログ ラム 例 】 

DECLARE SUB a (x!, y% サブ ルー チン a の 宣言 

ec 

ZZ% = 3 

CALL a(z!, zz%)ー 一 一 ーーー サブ ルー チン a を 呼び 出す 

END 

SUB a (qq!, pp 一 一 ーーーー サ プル ー チ ン を 
NN 50 ur 

END SUB 

【 結 果 】 

13578.37 


(9?) 【 プ ログ ラム 例 】 


矢 


11 章 プロ シ ジ ュ ア ・ サ ブル ー チ ン 








DECLARE SUB b (r% s%) 


サブ ルー チン 8, 
DECLARE SUB a (xx% yy 


b の 宮 言 


ェ %, y% の 入力 








サブ ルー チン a を 呼び 出す 


x%。 y% が 10000 以下 の と き 表 示 ., 
と える と き サ ブル ー チ ン b を 呼び 出す 


INPUT x% y% 
CALL a(X% y%) 
END 
SUB a (qq% pp%) ー サ プル ー チ ン ぁ 
IF qq% ~ pp% <= 10000 THEN 
PRINT qq% ~ pp% 
ELSE 
CALL b(qq% pp% 
END IF 
END SUB 





SUB b (r% s%) 








サブ ルー チン b 


PRINT r%: "7 s% ">=10000" 10000 以上 の 表示 

END SUB 
【 結 果 】 

全 の 3。5 23, 5 を 入力 の 例 

23 ^ 5 >=10000 

の 清田 3, 2 を 入力 の 例 

9 

? 3,5 3 5 を 人 入力 の 例 

243 
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DECLARE FUNCTTON、FUNCTTON、 END FUNCTTOR 





【 例題 82】 プロ シン ジュ ア ・ フ ァ ン クシ ョ ン 

数 * を 入力 し て x の 階 乗 (x! ) (x! は 単 精 度 実 数 型 を 示す の で は な く * の 階 乗 を 示す 数 学 記 
号 で ある ) を 求め ある プロ グラ ム を つく れ . た だ し , 階 乗 を 求め る 部 分 に FUNCTTON を 使う も 
の と する . 











【 解 説 】 〇 FUNCTION を 使っ て 階 乗 を 求め ます . 

① FUNCTTON は サブ ルー チン 同様 の 考え で 使い ます . SUB と の 違い は FUNCTTON で は 自身 が 値 を 
持つ と と で す . 具体 的 に みて いき まし ょ う . 

③ DECLARE FUNCTTON Kaijo(y AS DOUBLE) で は TUNCTTON と し て Kaijo を 宮 言 し ます . 
と の と き 引 数 が DOUBLE 型 で も ある と と を 示し ます . これ は SUB の 宮 言 の 仕方 と 同様 で す . 

③ FUNCTTON Kaijo(a# )~END FUNCTION は SUB 名 前 ( 仮 引数 ) END SUB と 同様 で す . 
Kaijo と いう 名 前 の FUNCTION を 示し , 仮 引数 と し て a# を 持っ て いま す . 実 引数 を a#C 受 け と 
り ます . 

本 例 の 処理 の 内 容 は kaijo に 階 乗 の 結果 を 持ち ます . 次 に a#* が 0 の と き Kaijo(C0, a# が 0 

で な いと き Kaijo (C j# を 代入 し ます . すなわち , Kai jo 自身 が 値 を 持つ と と が SUB と 違い ます . 
SUB で は 引数 どう し で 値 を やりとり し まし た が , SUB の 名 前 は 値 を 持っ て いま せん で し た . 

(〈⑥⑰ メイ ンプ ログ ラム の Kaijo(x#) に より x# を 引数 と し て , FUNCTTION Kaijo を 呼び 出し 実行 
し ます . FUNCTION で は 階 乗 を 求め て Kaijo に 代入 し て いま す の で Kaijo(x#) は x! (x の 階 
乗 ) と な り ま す . SUB と 違っ て Kaijo(x# ) 自身 が 値 を 持っ て いま す . 

















【 プ ログ ラム 例 】 
DECLARE FUNCTION kaijo (y AS DOUBLE)ーーーーーーーーー フ ァ ン クタ ション kai jo の 宣言 
INPUT x# # の 人 入力 
PRINT x#: ビュ リジェ kaijo(x3) rkai jo を 呼び 出し 実行 し 結果 を 表示 
END 
FUNCTION kaijo (a#) ファ ンク ショ ン kai jo 

挟 = 1 階 乗 を 3* に 求め る 

FOR i = a# TO 2 STEP -1 

j = 挟ま 
NEXT i 
IF a# = 0 THEN kaijo = 0 ELSE kaijo = ファ ンク ショ ン kai jo に K 階 乗 の 結果 を 代入 





END FUNCTION 
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ee 


【 結 果 】 
? 11 11 を 入力 の 例 
11 != 3.99168E+07 
? 9 9 を 入力 の 例 
9 != 362880 
? 4 4 
2 を 入力 の 例 





【 例題 83】 FUNCTION に 引数 を 2 つ 渡す 
数 x, y を 入力 し て , 次 に その 値 を ファ ンク ショ ン seki に 与え て , 積 を 求め , 結果 を メイ 
ンプ ログ ラム KC 返し て 表示 する プロ グラ ム を つく れ . 











【 解 説 】 〇 FUNCTTION c 引 数 を 2 つ 渡し ます . 
① DECLARE FUNCTTON seki(,y) で 、 ファ ンク ショ ン seki を 宣言 し ます . 引数 は * と y で 
す . これ は 浮動 小数 点 型 の 2 つの 値 で す . こと で は 変数 名 x, y が 問題 で は な く , 数 (2 個 ) と 型 が 
問題 で す . 
③ ファ ンク ショ ン seki は 次 の と お り で す . 
FUNCTION seki(a,b) 
Sek1 ニ =a*b 
END FUNCTION 
名 前 は seki で す . 引数 は a, b で , xx の 値 を a, yy の 値 を b に 引き うけ ます . a*b の 結果 が 
ファ ンク ショ ン seki の 値 と な り ま す . 
③ ファ ンク ショ ン の 値 は 5 行 目 の seki(xx,yy) で 表示 し ます . xx, yy を 実 引数 と し て ファ ンク 
ショ ン seki を 実行 し , その 値 が seki(xx,yy) で す . 














【 プ ログ ラム 例 】 
DECLARE FUNCTION seki (x, y) 一 一 ーーー ファ ンク ショ ン seki の 宣言 
INPUT xx, yy xx, yy の 入力 
PRINT xxi 「* : yyi Seki(xx, yy) ファ ンク ショ ン seki(xx,yy) の 表示 
END 
FUNCTION seki (a, b) ファ ンク ショ ン seki 
seki =a*b 
END FUNCTION 
【 結 果 】 
移 315。3 15 と 5 を 人 入力 の 例 


15 * 3 = 45 


入っ =e5 9 -25 と 9 を 人 入力 の 例 
-25 * 9 =-225 
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【 例題 84】 ファ ンク ショ ン の 値 で ルー プ を 終了 

文字 を 入力 し , "BE" また は "ee" が 入力 され た と き 全 体 を 順に つない で 表示 する プロ グラ ム を 
つく れ . た だ し , "BE" また は ”"e”" が 入力 され た と き フ ァ ン クシ ョ ン handan の 値 を 1 と し て 文 
字 の 入力 を 終了 し , それ 以外 で は handan の 値 を 0 と し て , 次 の 入力 を 行う $ の と する . 











【 解 説 】 〇 WHILE 条件 の 条件 を ファ ンク ショ ン の 値 で 行い ます . 
① 次 の ルー プ は ファ ンク ショ ン handan の 値 が 1 で な いと きく り 返 し を し ます . 1 の と きく り 返 し 
を 終了 し て s$ を 表示 し ます -. 


WHILE handan(b$) <>1 





ファ ンク ショ ン handan を 実行 し て 1 以外 な ら 
S$=S$+b$ くり 返し 、 1 な ら ル ー プ の 外 へ 


WEND し 人 入力 され た b$ を 順 (C s$C に つない で いく 


PRTNT s$ 


⑱ ファ ンク ショ ン handan は 文字 列 b$ を 入力 し て "E" ま た は ”"e" の と き handan の 値 を 1 とし, 
それ 以外 で は 0 と し ます . 引数 DO$ は その まま メイ ンプ ログ ラム の b$(C 引 き 渡 され ます . 


【 プ ログ ラム 例 】 
DECLARE FUNCTION handan (a AS STRING) ファ ンク ショ ン andan の 宣言 引数 は 文字 列 が 1 つ 


sS$ = " nandan が 1 以外 の と きく り 返 し s$C 文 字 を つない で いく 
WHILE handan(b$) <> 1 

S$ = s$+Db$ 
WEND 


PRINT s$ 一 一 一 一 ーーーーーーーーーーーーーー 一 - g$ の 表示 











END 

FUNCTION handan (b$) ファ ンク ショ ン handan 
INPUT b$ b$ の 入力 
IFD8 = "E ORDS = "e'"THENzZ=1ELSEz=0 b$ が "E" ま た は "e" の と き フ ァ ン クシ ョ ン 
handan = z の 値 が 1 その 他 は 0 


END FUNCTION 


【 結 果 】 
bo, o, ky e を 入力 の 例 


< 
GO の o ら ご らら ピ ピ 
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【 例 題 85】 配列 の 値 を ファ ンク ショ ン へ 引き 渡す 
下 の デ ー タ を 元 に し て , 数 を 入力 し , 最初 か ら x 個 の 平均 を 求め て 表示 する プロ グラ ム を 
つく れ . た だ し , メイ ンプ ログ ラム で x 個 の 入力 を し , 配列 に 元 デ ー タ を よん で , 個 と その 
配列 の 値 を ファ ンク ショ ン (C 引 き 渡し , ファ ンク ショ ン で 平均 を 求め る ゃ の と する 
5。 5。 4、8,。 6, 7 1。 9 5, 6 
8, 9, 2, 4, 5, 5, 2, 9, 8, 4 
9, 7, 5, 8, 4 2, 2 9。 2 5 








【 解 説 】 〇 配列 を ファ ンク ショ ン へ 渡し ます . 
① 配列 名 を か く こ と で 配列 を ファ ンク ショ ン へ 引き 渡す と と が で きま す -. 

















【 プ ログ ラム 例 】 

DECLARE FUNCTION heikin (x(), y) ファ ンク ショ ン heikin の 宮 言 , 配列 と 整数 型 を 引数 と する 

DIM a(30) 一 ーーーーーーーーーーーーーー 配列 の 宮 言 

INPUT xx 一 ーーーーーーーーーーーーーーー xx% の 入力 

FORi=11T0O xx 配列 a%(c xx 個 の デー タ を 読む 
READ a(i) 

NEXT i 

h = heikin(a(), xx) ファ ンク ショ ン bei kin を 表示 

PRINT xi コリ Aci トーーーー| 

END 

DATA 5, 3, 4, 8, 6, 7, 1, 9, 5, 6 

DATA 8, 9, 2, 4, 5, 3, 2, 9, 8, 4 

DATA 9,7, 5, 8, 4, 2, 2, 9, 2. 5 

FUNCTION heikin (n(), p) 一 一 ーーーー ファンク ション heikin、 配列 を n%(1 ) に 個数 を p%C う ける 
t = 0 和 を 求め る 
FOR i=1TOp 

t =t+n(i) 

NEXT i 
heikin=t/p 平均 を 求め る 平均 を heikin の 値 と する 

END FUNCTION 

【 結 果 】 

? 10 10 を 入力 の 例 


10 コノ へ イキ ヘン = 5.4 


7 16 16 を 入力 の 例 
16 コ ノ へ イキ ヘン = 5.3125 


? 30 50 を 入力 の 例 
30 コ ノ へ イキ ^ ン = 5.366667 


? 1 1 を 入力 の 例 
1 コ ノ へ イキ ^ ン = 5 
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ーーーーーーー て て ーー 
[演習 問題 」 


(98) 数 xx, yy を 入力 し , これ を ファ ンク ショ ン wa 引き渡し て 和 を 求め 結果 を メイ ンプ ログ 
ラム に も ど し て 表示 する プロ グラ ム を つく れ . 

(99) 文字 列 x$ を 入力 し , その 文字 列 を ファ ンク ショ ン mojisu C 渡 し その 文字 列 の 文字 数 を 
ファ ンク ショ ン mojisu の 値 と し て メイ ンプ ログ ラム に も ど し て 表示 する プロ グラ ム を つく れ 

(100) 整数 を 入力 し て , その 値 が 0 の と き 値 を 999 と し , それ 以外 で は 値 を 0 と する ファ ンク 
ショ ン handan を つく り , 引数 と し て , 入力 され た 値 を メイ ンプ ログ ラム に も ど し て 和 を 求め , 
0 が 入力 され た と き 和 を 表示 する プロ グラ ム を つく れ . 

(101) 整数 x% を 入力 し て , 3x*+2x+5 の 値 を 求め る プロ グラ ム を つく れ . た だ し , 式 の 値 は FU 
NCTTON を 使っ て 求め ある る の と する . 

(102) 整数 x% を 人 入力 し て , x% 度 の sin の 値 を 求め る プロ グラ ム を つく れ 

(103) 整数 x% を 入力 し て , 1~x% の 和 を 求め ある プロ グラ ム を つく れ 














| 解 答 」 
(98) 【 プ ログ ラム 例 】 

DECLARE FUNCTION wa (x, y) ーーーーーーー フ ァ ン クシ ョ ン 和 の 宮 言 
INPUT xx, yy xx,。 yy の 入力 
PRINT xx "+"Yyyi "= wa(xx, yy) ファ ンク ショ ン wa の 表示 
END 
FUNCTION wa (a, b) ファ ンク ショ ン w& 

wa =a+b | 
END FUNCTION 
【 結 果 】 
? 154,854 154 と 854 を 入力 の 例 


154 + 854 = 1008 


? 21,8956 21 と 8956 を 入力 の 例 
21 + 8956 = 8977 


(99) 【 プ ログ ラム 例 】 
DECLARE FUNCTION mojisu (a AS STRING) 


ファ ンク ショ ン mojisu の 宣言 

















INPUT x$ x$ の 入力 

PRINT mojisu(x$) ファ ンク ショ ン mojisu の 表示 

END 

FUNCTION mojisu (bS$) ファ ンク ショ ン mojisu 
mojisu = LEN(b$) | 3 を る 

END FUNCTION 
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タタ iiseeーー ニ ーーーー ニ ーー 


【 結 果 】 


? moonlight 
9 


(100) 【 プ ログ ラム 例 】 


moon1ight を 人 入力 の 例 


DECLARE FUNCTION handan (a AS INTEGER) 一 ファンクション handan の 宣言 





wa = 0 
WHILE handan(b%) <> 999 
wa =wa+D% 

WEND 





PRINT wa 





END 


FUNCTION handan (b% 


wa を 求め る くり 返し 
入力 され た 値 も % も は ファ ンク ショ ン 
nandan か ら 引 き 渡さ れる 


和 の 表示 


ファ ンク ショ ン handan 





INPUT b% 


D% の 入力 





IF D% = 0 THEN handan = 999 ELSE handan =0 一 本 V% が 0 の と き フ ァ ィ ン ク ショ ン の 博 を 3 





END FUNCTION 
【 結 果 】 


< つよ つよ つよ つつ つつ で 


の どら m ょ よい 〇 い コ の で 


(101)【 プ ログ ラム 例 】 





その 他 の と き 0 と する 


5 5, 7, 9、 7、2, 4, 5, 0 を 入力 の 例 








DECLARE FUNCTION a (a AS INTEGER) a の 定義 

INPUT x% x% の 人 入力 

PRINT a(x%) a を 呼び 出し 結果 を 表示 
END 


ファ ンク ショ ン & 





FUNCTION a (2 め 
a= 3*2%*2%+2*2%+5 


| 5x%“+2x%+5 を 求め る 





END FUNCTION 


【 結 果 】 

? 2 2 を 入力 の 例 
21 

? 8 8 を 入力 の 例 
213 


(102)【 プ ログ ラム 例 】 











DECLARE FUNCTION a (a AS INTEGER) a の 定義 

INPUT x% x% の 入力 

PRINT a( め % a を 呼び 出し 結果 を 表示 
END 


20Z 
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ーー 


(105) 


FUNCTION a (2 め 





a = SIN(2% / 180 * 3.14159) 





END FUNCTION 
【 結 果 】 


? 67 
・9205045 


67 を 入力 の 例 


【 プ ログ ラム 例 】 


DECLARE FUNCTION a (a AS INTEGER) 
INPUT x%% 








PRINT a(x% 





END 


FUNCTION a (2 紀 





FOR ij% = 1 T0 2% 
22% = Z2%+ 1i% 
NEXT i% 
a = 2Z2% 
END FUNCTION 


【 結 果 】 
? 5 
15 
? 100 
5050 





5 を 入力 の 例 


100 を 入力 の 例 


タング ン 多少 
sin (x% 度 ) を 求め る 


8a の 定義 
x% の 入力 
ag を 呼び 出し 結果 を 表示 


ファ ンク ショ ン ぁ & 
1 か ら x% の 和 を 求め る 
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CO0MMON.COMMON SHARED, CHATN、 STATTC、 SHARED 





【 例題 6】 グロ ー バ ル 変 数 と ロー カル 変数 

変数 p1 を 3.14159 と CONST で 宮 言 ・ 代 人 し , 次 に 半径 r を 入力 し て , 円 の 面積 (pi 
r*) を 求め て 表示 し . サブ ルー チン ss を 引数 を r と し て 呼び 出し , 円 周 長 (pi・r) を 求め 
て 表示 する プロ グラ ム を つく れ . 











【 解 説 】 〇 グロ ー バ ル 変 数 の 有効 範囲 と ロー カル 変数 の 有効 範囲 

① Quiock BASTC で は 変数 の 有効 範 胃 に よっ て グロ ー バ ル 変 数 と ロー カル 変数 に 分 け ま す . グロ ー 
バル 変数 は その 値 が すべ て の モジ ュー ル で 有効 な 変数 で す . 従来 の BASTC で は 変数 は プロ グラ ム の 
中 で は すべ て 有効 で し た か ら , すべ て の 変数 な グロー バル 変数 で あっ た と も いえ ます . 一 方 , 特定 の 
モジ ュー ル の 中 だ け で 有効 な 変数 を ロー カル 変数 と いい ます . Quiok BASTC で は 特 指 定 の な い 
限り , 変数 は ロー カル 変数 で す . と の と と は サブ ルー チン や ファ ンク ショ ン の 独立 性 が 高い と と を 示 
し ます . 

③ メイ ンプ ログ ラム の 中 で 宮 言 ・ 代 入 さ れ た 定数 CONST pi=3.14159 は グロ ー バ ル で す . 本 例 
で は メイ ンプ ログ ラム の 中 の pi は 32.14159 で あり , サブ ルー チン ss(x) の 中 の pi も 5.141 
59 が 有効 で す . 

⑬③ プロ シ ジ ュ ア の 中 で 宣言 され る CONST は ロー カル で , その プロ シ ジ ュ ア の 中 で の み 有 効 で す . 


メイ ンプ ログ ラム の 中 で 























CONST pi=5.14159| -、 CONST で 宣言 され た 変数 は グロ ー バ ル 変 数 
メ 
イ 有効 
ジス 
2 4 ] 
ロ 
グ 8 ニ D1 ネエ ネエ 
え ) 
ム 
ー END 有効 
ナ SUB ss(x) 
を 時 
1 
チ 7 
ン し - END SUB 





④ メイ ンプ ログ ラム の 中 で 入力 され た 値 を 持つ 変数 r は ロー カル で す . し た が っ て , メイ ンプ ログ 
ラム の 中 だ け で 有効 で す . し た が っ て , CALt ss(r) で は r の 値 を サブ ルー チン へ 引数 と し て 渡し 
209 
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ます . な お , メイ ンプ ログ ラム の 変数 Ss も ロー カル で す . 
⑮ サブ ルー チン で は 2*pi*x を 求め て 1 Cc 代入 し , x と 1 を 表示 し ます . pi の 値 は グロ ー バ ル で 
すか ら 53・14159 が 生き て いま す . x の 値 は 関数 の 引数 と し て r の 値 が 引き 渡さ れ て いま す . 結果 
は 変数 1 に 代入 さ れ ま す . 1 は ロー カル 変数 で すか ら サ ブル ー チ ン の 中 で の み 有 効 で す . 
⑯ サブ ルー チン の 中 で x の か わり に の 値 を 表示 させ て み ま す . 結果 は 0 です. すなわち メイ ンプ 
ログ ラム の r の 値 は ロー カル で すか ら サ ブル ー チ ン の 中 で は 0 で す . r の 値 は サブ ルー チン の 引数 
と し て 仮 引数 x に 渡さ れ て いる の で す . 
【 参 考 プ ログ ラム 例 】 
SUB ss (XX) 


1 = 2 * pi * 
PRINT ri 1 一 ーー < の 代わ り (Cr を 表示 し た 例 


END SUB 
【 結 果 】 

? 3.84 3.84 を 入力 の 例 

3.84 46.32463 

0 24.12741 r は 0 に な っ て いる と と に 注意 
【 プ ログ ラム 例 】 


DECLARE SUB ss (x!) サブルーチン ss の 宣言 
CONST pi = 3.14159 - 一 定数 の 宮 言 

INPUT r r の 人 入力 

S =pPI* ま Tr ネェ ャ ーー 円 の 面積 の 計算 

PRINT ri: s 一 一 結果 の 表示 











CALL ss(r) サブ ルー チン を 呼び 出し , 引数 を r と する 
END 
SUB ss (x) サブ プルー チン ss. 仮 引数 は x 





1 =2* pi *xーーー 円 周 長 を 求め る 
PRINT x: 1 ユー ーー ーー 半径 と 円 周 長 の 表示 
END SUB 


【 結 果 】 


? 2.5 2.5 を 入力 の 例 
2.5 19.63494 
2.5 15.70795 








【 例 題 87】 整数 型 変数 と 長 整数 型 変数 を COMMON で 宣言 
変数 a,、 b, c を 整数 型 、 qd, e. f を 長 整 数 型 で COMMON 官 言 し a, b, c を 入力 し て , d 
に 積 , e に 各々 の 2 乗 の 積 .f に Cd の 2 乗 を 求め る プロ グラ ム を つく れ 











【 解 説 】 〇 整数 弄 変 数 と 長束 数 型 変数 を COMMON で 宮 言 し ます . 
① 次 の 形 で COMMON 宮 言 を し ます . COMMON で 宮 言 され た 変数 は グロ ー バ ル 変 数 で す . 
COMMON a,b,oc AS 1TNTEGER 
a, b, o を 整数 型 で 家 言 
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記 テーmcwaoowseee ュ mm 











COMMON d,e,f AS LONG 
d, e, f を 長 整数 型 で 宣言 
【 プ ログ ラム 例 】 


COMMON a, b, c AS INTEGER 一 一 宣言 
COMMON d, e, f AS LONG 
INPUT a, b, c 一 ーーーーーー 入力 








【 結 果 】 


? 12,10,6 ニ 一 ーーー 一 一 12、10, 6 を 入力 の 例 
12 10 6 
720 518400 518400 





【 例題 88】 単 精度 実数 型 変数 と 倍 精 度 実数 型 変数 を COMMON で 宣言 
変数 a, b を 単 精度 実数 、 c, d を 倍 精度 実数 と 宜 言 し て , a, b を 入力 し て , 積 を c に , 商 
を d 代入 し て a, b, co, d を 表示 する プロ グラ ム を つく れ . 











【 解 説 】 〇 単 精度 実数 型 変数 と 倍 精度 実数 型 変数 を COMMON で 宣言 
① 次 の 形 で COMMON 宮 言 し ます . COMMON で 宮 言 され た 変数 は グロ ー バ ル 変 数 で す . 
COMMON a,b AS SINGLE 
a, b を 単 精度 実数 と し て 宣言 
COMMON c,d AS DOUBLE 
ce, d を 倍 精度 実数 と し て 宣言 
【 プ ログ ラム 例 】 


COMMON a, b AS SINGLE 宮 
COMMON c, d AS p0UBLE 一 上 





I 


中 


中 


INPUT a, b 一 ーーーーー 入力 
Cc =a※*b 積 と 商 
d=a/b 
ME ーー 
PRINT ci: d 
END 
【 結 果 】 
2 25.。325。 よ 2.。7896 25.325 と 12.7896 を 入力 の 例 


25.325 12.7896 
323.8966 1.980124473571777 
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【 例 題 89】 文字 型 変数 を COMMON で 宣言 
変数 a を 10 文字 の COMMON 官 言 を し て a 文字 列 を 入力 し て 表示 する プロ グラ ム を つく れ . 














【 解 説 】 〇 文字 型 変数 を COMMON で 宣言 し ます . 
① 次 の 形 で 文字 変数 の 文字 数 を 決め て COMMON 宮 言 を し ます . COMMON で 宮 言 され た 変数 は グロ ー 
バル 変数 で す . 
COMMON a AS STRING*10 
変数 s を 10 文字 列 と し て COMMON 宣言 























【 プ ログ ラム 例 】 
COMMON a AS STRING * 10 宣言 
INPUT a 入力 
PRINT a 表示 
END 

【 結 果 】 
? abcdefg 8…… g に) の 例 
abcdefg ーー 
? abcdefghij 5SSae 3 回 の 例 
abcdefghi j 
? abcdefghijklmn ama) の 例 


abcdefghij 





【 例題 90】 グロ ー バ ル 変 数 

pi を 3・14159 と し て CONST で 宮 言 し , 次 変数 r を グロ ー バ ル に 宣言 し て か ら r K 半 
径 を 入力 し て , 円 の 面積 を 求め て 表示 し た 後 , サブ ルー チン を 使っ て , 2*pi*r (円 周 長 ) を 
求め て 表示 する プロ グラ ム を つく れ . 














【 解 説 】 〇 プロ シ ジ ュ ア で 有効 な グロ ー バ ル 変 数 を 宣言 し ます . 

① メイ ンプ ログ ラム で 次 の よう に 宮 言 され た 変数 は グロ ー バ ル で す . モジ ュー ル 間 を 通じ て 共通 に 使 
えま す . 

COMMON SHARRED 変数 

⑧ メイ ンプ ログ ラム で r を 入力 し pi*r*r を 求め た 後 サ ブル ー チ ン で 2*pi*r を 求め ます . 今回 
は サブ ルー チン へ の 引数 は あり ませ ん . r の 値 は 入力 され た 値 が 生き て いて 半径 r の 円 周 長 が 求 ま 
り ま す . この よう に r の 値 は サブ ルー チン の 中 で も 有効 な の で す . 

③ 【 例 題 866】 の ェ の 値 , r を サブ ルー チン へ 渡す 方 法 と 比べ て みて くだ さい . 従来 の BASIC に な 
れ た 人 は r が 共通 に 使え る 方 が 便利 で 簡単 と 思わ れる か る 知れ ませ ん . し か し , プロ グラ ム が 複雑 
(に な る と , サブ ルー チン や 関数 の 独立 性 が 高い 方 が 便利 に な っ て くる の で す . 
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【 プ ログ ラム 例 】 
DECLARE SUB ss () サブ ルー チン ss の 宜 言 
CONST pi = 3.14159 一 一 定数 の 宮 言 
COMMON SHARED r ーーーー 変数 r を グロ ー バ ル に 宣言 
INPUT r 一 一 一 ーーーーー ェ の 入力 
S = DI* ま T* ネ エーーーー 円 の 面積 の 計算 
PRINT r: s 一 一 一 一 一 一 半径 と 面積 の 表示 
CALL ss サ プ ブルー チ ン の 呼び 出し , 引数 は な い . 
END 半径 r は グロ ー バ ル な の で サブ ルー チン で も ゃ 使え る 
SUB ss サブ ルー チン 
] = 2*pi* ネ Tr 円 周 長 の 計算 
PRINT r: 1 一 一 一 半径 と 円 周 長 の 表示 
END SUB 
【 結 果 】 
し 0 12.5 を 入力 の 例 


12.5 490.8734 
12.5 78.53975 





【 例題 91】 ロー カル 変数 

を 125.22.、 ゞ を 654.1 と し て xry を xy に 求め て か ら サ ブル ー チ ン ss を 呼び 出し , 
x を 54.2、y を 32.58 と し て xx*y を xy KC 求め て 表示 し . メイ ンプ ログ ラム K 戻 っ て , 最 
初 の x*y の 値 を 表示 する プロ グラ ム を つく れ . 














【 解 説 】 〇 ③ ロー カル 変数 の 働き に つい て 調べ ます . 

① メイ ンプ ログ ラム で x=5.33、y=654.1 と し て x*y を 求め て xy CC 代入 し ます . 

③ 続い て サブ ルー チン で x=54 .2, =22.58 と し て xx*y を 求め て xy に 代入 し ます . 結果 を 表示 
b 宣 

③⑬③ メイ ン ル ー チ ン K 戻 っ て , 最初 の *x と y お よび xy の 値 を 表示 し ます . x は サブ ルー チン で 54・ 
2 を 代入 し て いま す が 元 の 125.38 が 生き て いま す . y$ ゃ 同様 に 654.1 が 生き て いま す . xy は 
54 .2*654 .1 で す . つま り , 変数 x, y, xy は ロー カル 変数 の た め メ イン プロ グラ ム の 中 の xx, ?, 
xy と サブ ルー チン の 中 の x, ゞ , xy で は お 互い に 独立 し て いる の で す - 























【 プ ログ ラム 例 】 
DECLARE SUB ss () 一 ーーーーー サブ ルー チン SS の 宣言 
x = 125.33 と y に 値 を 代入 
y = 654.1 
XY = ニ X ま yyY xy(C* と ゞ ず の 積 を 代入 
CALL ss サブ ルー チン ss を 呼び 出す 
PRINT xi "ij yi ェ xyーーーーー*, ゞ , XY の 表示 
END 
SUB ss サブ ルー チン 5 
x = 54.2 と y に 値 を 代 人 
y = 32.58 
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XY =X*Y xy (に と ゞ の 積 を 代入 
PRINT xi: " ポ yi = XY *, ゞ , xy を 表示 
END SUB 
【 結 果 】 
54.2 * 32.58 = 1765.836 
125.33 * 654.1 = 81978.35 





【 例題 92】 グロ ー バ ル 変 数 と ロー カル 変数 の 働き 

* を グロ ー バ ル ,。 ゞ y を ロー カル 変数 と し て , メイ ンプ ログ ラム で x と ゞ を まず 0 と し ん た 後 
10 回 の くり 返し を 行い 、x と ゞ KK 各々 1 を 加え 表示 し ます . 続い て サブ ルー チン を 呼び 出し , 
ゞ を 0 と し た 後 yC5 を 加え x と y を 表示 する プロ グラ ム を つく れ . 











【 解 説 】 〇 グロ ー バ ル 変 数 と ロー カル 変数 の 働き に つい て 比べ な が ら 確 認 し ます . 

① メイ ンプ ログ ラム で xx を グロ ー バ ル に 宮 言 し ます . x と ゞ を 0 と し ます . y は 特別 C 宜 言 され て 
いま せん か ら ロ ー カ ル で す 

③⑬ 10 回 の くり 返し を し ます . x と yC1 を 加え ます . そし て 表示 し ます . 最初 は 1、 1 で す . サブ 
ルー チン へ 分 岐 し , ゞ を 0 と し , y+5 と し た 後 x と ゞ を 表示 し ます . x は グロ ー バ ル で すか ら 1 が 
生き て いて 1 y は ロー カル で すか ら 5 と な り ま す . し た が っ て , 1 回 目 は 1、 1、 1, 5 で す . 

⑬ る 回 目 は な * は 1 に 1 が 加え られ て 1, メイ ンプ ログ ラム の は 元 の 1 が 生き て いて 1+1 で 2 で 
す . サブ ルー チン で は *x は 2、y は まず 0 と し た 後 5 を 加え ます か ら 5 で す . したがって, 2, 2。 
2, 5 と な り ま す . 

【 プ ログ ラム 例 】 


DECLARE SUB ss () サ プ ル ー チ ン の 宣言 
COMMON SHARED x * を グロ ー バ ル に 宣言 


0 
Y = 0 




















FOR i = 1 10 10 10 回 の くり 返し 
二 芝 中 汰 * と ゞ に 1 を 加え る 
Y 王 \ キ 1 
PRINT x: y: ェ と ゞ 了 の 表示 
CALL ss サブ ルー チン の 呼び 出し 
NEXT i 
END 
SUB ss サブ ルー チン ss 
Y = 0 一 ーー- ゞ を 0 と する 
Y=yY+ 5- 一 一 一 一 一 YK5 を 加え る 
PRINT x: yーーーーー ミ と すゞ の 表示 
END SUB 
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ノノ ラス くそ 


【 結 果 】 
蛍 信久 和 5 1 回 目 
2 2 2 5 2 回 目 
3 3 3 5 一 5 回目 
4 4 4 5 
5 5 5 5 に 
6 6 6 5 
7 7 7 5 
8 8 8 5 
9 ⑨9 ⑨ 5 
10 10 10 5 





【 例題 93】 チェ ー ン し た プロ グラ ム で 変数 を 共通 に 利用 
=125.45, ゞ を 258.52 と し て x+y を 求め て 表示 し た 後 , ree-95.bas の ファ イル を 
チェ ー ン し て , *x と ゞ の 値 を 生か し て 商 を 求め て 表示 する プロ グラ ム を つく れ . 











【 解 説 】 〇 チェ ー ン し た プロ グラ ム で 変数 の 値 を 共通 に 使い ます . 

① チェ ー ン し た プロ グラ ム で 変数 を 共通 に 使う 9 ため に は メイ ンプ ログ ラム と チェ ー ン され る プロ グラ 
ム の 先頭 で COMMON 宜 言 を し ます . こと の 時 , 実数 の 型 と 数 が 大 切 で す . 名 前 は 違っ て いて も か まい 
ませ ん . 





メイ ンプ ログ ラム チェ ー ン され る プロ グラ ム 
COMMON xy COMMON a,b 
| 1 ェ の 値 が ぁ Cy の 値 が に 共通 
使え る . 変数 の 型 と 数 を 一 致 さ せる . 





③ 本 例 で は x を 123.45、y を 258.22 と し た 後 x*y を 求め 、ree-95.b&aS に チェ ー ン し ます . 
の 値 は a, の 値 は b の 値 と し て 使え ます . し た が っ て , a/b は 128.45/258.22 で す . 
【 プ ログ ラム 例 】 














COMMON xy 変数 の 宜 言 

x = 123.45 x、 ゞ の 値 を 代入 

y = 258.32 | 

seki = x * yーーーーーーーーーーーーー 積 を 求め る 

PRINT x, "yi Seki 結果 の 表示 

CHAIN "b:ree-95.bas ーー b ドラ イブ の ree-95.baS ファ イル へ チェ ー ン 
END 


チェ ー ン され る プロ グラ ム , ファ イル 名 を "ree-95・.bas” 
と し て b ドラ イブ に 格納 し て お く 











【 プ ログ ラム 例 】 (ree-95・baS) 
生 00 きる / 胡 商 の 計算 
PRINT ai 「/j bi = shou 結果 の 表示 
END 

【 結 果 】 


123.45 * 258.32 = 31889.6 
123.45 / 258.32 = .4778956 
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【 例題 94】 ロー カル 変数 を 一 時 的 に 利用 

TUNCTTON x( ) を 宣言 し , 次 に 1=65 か ら 90 まで の くり 返し を 使っ て , 1 の キャ ラク タ 
コー ド の 文字 を 表示 し た 後 、 TUNCTTON で i+22 の 値 を 求め それ を FUNCTTON の 値 と し て 。 
メイ ンプ ログ ラム で それ を キャ ラク タコ ー ド と する 文字 を 表示 する プロ グラ ム を つく れ 











【 解 説 】 〇 ロー カル 変数 の 値 を 一 時 的 に 利用 し ます . 

① 1 を 65 から 90 まで と し て , くり 返し で CHR$( 1) を 表示 し ます . 最初 は A, 最後 は 2 です. 

③⑬) FUNCTTON を 呼び 出し ます . この と き SHARED 1 に よっ て , ロー カル 変数 で ある 1 を 一 時 的 
使え を る よう に し ます . し た が っ て , x=i+32 と する と FUNCTTON の 値 は 最初 は 65+52=97 と な り 
ます . メイ ンプ ログ ラム KC 戻っ て CHR$(x) を 表示 する と a と な り ま す . 

③ 結果 は 65, 66, …90 を キャ ラク タコ ー ド と する 文字 A, B、C…Z の 各々 の 後に その 値 +82 を 
キャ ラク タコ ー ド と する 文字 a, b, c…z を 表示 し ます . 

【 プ ログ ラム 例 】 

DECLARE FUNCTION x () FUNCTTON の 宣言 


FOR i = 65 TO 90 i を 65 か ら 90 まで くり 返し 
PRINT CHRS(i) : CHR$(1 ) の 表示 
PRINT CHR$(x) : FUNCTTON の 値 を キャ ラク タコ ー ド と する 文字 の 表示 
NEXT i 








END 
FUNCTION x 一 ーーーーー- FUNCTTON 
SHARED 1 一 一 ーー 一 ーー ロー カル 変数 3 を 一 時 的 に 使う 
X = i + 32 一 一 一 ーーー i+22 を FUNCTTON の 値 と する 
END FUNCTION 
【 結 果 】 


AaBbCcDdEeFfGgHh 1 iJjKkL1 MmNnOoPpQqRrSsTtUuVvwwXxYyZz 





【 例題 95】 グロ ー バ ル 変 数 を 一 時 に ロー カル で 使用 

グロ ー バ ル で 定数 p: を 8.14159, 変数 r を 宜 言 し , r C 値 を 入力 し た 後 サ ブル ー チ ン を 
呼び 出し , 一 時 的 (C xr を ロー カル 変数 と し て 使用 し ,+ を 入力 し て , 円 周 長 を 求め て 表示 し た 後 , 
メイ ンプ ログ ラム へ も どっ て 元 の r を 使っ て 円 の 面積 を 求め て 表示 する プロ グラ ム を つく れ 











【 解 説 】 〇 グロ ー バ ル 変 数 を 一 時 的 に ロー カル に 使い ます - 

③④ メイ ンプ ログ ラム で r K 値 を 入力 し た 後 , サブ ルー チン を 呼び 出し ます . 

⑥ サブ ルー チン で は STATTC r と 宮 言 する と と で r を 一 時 的 に サブ ルー チン の 中 で の み 使 う ロ ー カ 
ル 変 数 と し ます . そこ で 別 の r を 入力 し て 計算 し た 後 メ イン プロ グラ ム へ も どり ます . ェ の 値 は 元 
の r の 値 が 残っ て いま す . 
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で ma エー ニニ ニニ ーーー ニー ニー ンーー ェ = デー テー ーーー ニャ mes 














グロ ー バ ル ロー カル 
ここ 
メイ ン 
プロ ダム 
T 
サ プ プ ログ ラム 一 時 的 に r を 使用 
| メイ ンプ ログ ラム 


【 プ ログ ラム 例 】 


DECLARE SUB ss () 
CONST pi = 3.14159 


I 





サブ ルー チン の 宣 
定数 p1 の 宮 言 


中 














COMMON SHARED r r を グロ ー バ ル に 宮 言 
INPUT r 一 ーーーーーーーー r の 入力 
CALL ss サ プ ブル ー チ ン ss の 呼び 出し 
S = pi* ま Tr* ェ ャ ーーー 円 の 面積 を 求め る 
PRINT r: s ーー 一 一 一 r と 8S の 表示 
END 
SUB ss 一 一 一 一 ーーーーー サブ ルー チン 
STATIC r ーーーーーーー グロ ー バ ル 変 数 r を 一 時 的 に ロー カル と し て 使用 宣言 
INPUT r ーーーーーーーr の 入力 
1 = 2*pi*T 円 周 長 を 求め る 
PRINT r: 1 一 一 一 一 一 r と 1 の 表示 
END SUB 
【 結 果 】 
欠 ま 。g5 1.5 と 2.2 を 入力 の 例 
人 ン 
2.2 13。823 
1.5 7.068578 





【 例 題 96】 配列 変数 

配列 a(1 TO 10) を 宣言 し て 下 の デ ー タ を 読み , 次 に サブ ルー チン を 呼び 出し , 配列 の デ 
ー タ を 共用 し て 表示 する プロ グラ ム を つく れ . 

デー タ 』1, 5, 6, 2, 7, 8, 3, 6, 5、 4 








【 解 説 】 〇 配列 変数 の 有効 範囲 を 調べ ます - 

① 配列 変数 の 有効 範囲 も , 普通 の 変数 と 同じ で す . 

③ 本 例 で は DIM a(1 TO 10) に より 配列 変数 & を ロー カル に 配列 宣言 し ます . 
③ サブ ルー チン で は SHARED a( ) に よっ て 配列 変数 a( ) を 共有 し ます . 


トウ 


【 プロ グラ ム 例 】 
DECLARE SUB ss () 一 サブ ルー チン の 家計 
DIM a(1 TO 10) 一 配列 変 数 ぁ の 宣言 
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FOR i = 110 10 配列 ヘ へ デー タ を 読み 込む 
READ a(i) 
NEXT i 
CALL ss サブ ルー チン の 呼び 出し 
END 
DATA 1.5, 6, 2.7, 8, 3, 6, 5, 4 
SUB ss サブ ルー チン 
SHARED a() 一 ーーーーーーー 配列 a( ) を 共用 
FOR i = 1 T0 10 a(1)-a(10 ) を 表示 
PRINT a(i): 
NEXT i 
END SUB 
【 結 果 】 


1 5 6 2 7 8 3 6 5 4 
[演習 問題 」 


(104) 変数 wa sa, x, ゞ を グロ ー バ ル に 宣言 し て * と ゞ を 入力 し た 後 wa (C x+y, sa (Cxーy 
を 求め て か ら サ ブル ー チ ン に 分 岐 し て 結果 を 表示 する プロ グラ ム を つく れ 

(105) 変数 *x を グロ ー バ ル に 宮 言 し , 数 *x を 入力 し て サブ ルー チン を 呼び 出し x* を 求め て 表示 す 
る プロ グラ ム を つく れ . 

(106) 変数 shou%, joyo%, x%, y% を グロ ー バ ル に 宣言 し て , x%, y% を 人 入力 し て , 商 を sho 

u%, 剰余 を Joyo% に 求め て か ら サ ブル ー チ ン を 呼び 出し 結果 を 表示 する プロ グラ ム を つく れ . 

(107)  x% を 54, y% を 25 と し て , 積 を 求め て 表示 し た 後 , B ドラ イブ の ファ イル 名 ree-105. 
bas へ チェ ー ン し て , x% と ゞ % の 値 を 共通 に 使っ て x%+y% の 剰余 を 求め て 表示 する プロ グ 
ラム を つく れ . 

(108) 変数 x。 ゞ を グロ ー バ ル に 宣言 し , x, y を 入力 し て か ら サ ブル ー チ ン を 呼び 出し , x, 
を 一 時 的 に ロー カル で 使用 し て x, y を 入力 し , x*+y* を 求め て 表示 し た 後 , メイ ンプ ログ ラ 
ム で , 元 の x*y を 求め て 表示 する プロ グラ ム を つく れ . 

(109) 下 の デ ー タ を 配列 a$(1 TO 10) に 読み. サブ ルー チン を 呼ん で 配列 &$(1 TO 10) 
を 共用 し て 表示 する プロ グラ ム を つく れ . 

デー タ jiTokyo, 0saka, Nagoya, Fulkui、 SapporO, 
Yokohama、 Kawasaki、 Takamatsu、 Fukuoka, Sendai 

(110) を 1 か ら 10 ま で と し て くり 返し を 行い , 1*1= の 後 (C 1* を 表示 する プロ グラ ム を つく 
れ . た だ し , メイ ンプ ログ ラム の ロー カル 変数 1 を FUNCTION x で 一 時 的 に 共用 し て 1* を 
求め それ を FUNCTTON の 値 と し て 使う ちの と する 

(111) 変数 a を 整数 型 , b を 長 整数 型 で COMMON 宮 言 し , a を 入力 し て a* を b に 代入 し て 表示 
する プロ グラ ム を つく れ . 

(112) a を 単 精度 実数 型 , b を 単 精 度 実数 型 , c を 倍 精 度 実数 型 と し て COMMON 宮 言 し a, b を 


27 ぷ 














(104) 
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エッ ニュ ーー 


入力 し て 商 を c C 求 め 表 示す る プロ グラ ム を つく れ . 


























[ 解 答 ] 

【 プロ グラ ム 例 】 
DECLARE SUB ss サブ ルー チン の 宣言 
COMMON SHARED wa, sa, X, Y wa, Sa, xy を グロ ー バ ル に 宣言 
INPUT xy * と ゞ の 入力 
wa =X+Y 和 と 差 の 計算 
Sa=XーY 
CALL ss サブ ルー チン ss の 呼び 出し 
END 
SUB ss サブ ルー チン Ss 

PRINT xi "1 yi Wa 和 と 差 の 表示 

PRINT x: "ーッ | ピ : 二 し 
END SUB 
【 結 果 】 
を 呈 。 導 5, 3 を 人 入力 の 例 


5 + 3 
る = 飼 


や O 


(105)【 プ ログ ラム 例 】 


サブ ルー チン ss の 宣言 
ェ を グロ ー バ ル に 宣言 





DECLARE SUB ss () 
COMMON SHARED x 











INPUT x 一 ーーーーーー* の 入力 
CALL ss 一 ーーーーーー- サ ブル ー チ ン ss を 呼び 出す 
END 
SUB ss 一 -ーーーーーー サ ブル ー チ ン SS 
S=X* ま X ネ X xs を SC 代入 
PRINT x: s x と s を 表示 
END SUB 
【 結 果 】 
人 1 の 。54 12.54 を 入力 の 例 


12.54 1971.935 


(106)【 プ ログ ラム 例 】 

















DECLARE SUB ss () サブ ルー チン の 宣言 
COMMON SHARED shou%. joyo%, x%. y% 一 一 ダグ ロー バル に 変数 を 宣言 
INPUT x% y% *%, y% の 入力 

shou% = x%\ y% 商 と 剰余 を 求め る 
joyo% = x% MOD y% ] 

CALL ss サブ ルー チン を 呼び 出す 
END 
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SUB ss サブ ルー チン 
PRINT xy% "| y%: "= shou%: "77 リ ": joyo% 結果 の 表示 

END SUB 

【 結 果 】 

? 125,51 125 と 51 を 入力 の 例 


2 き / 51 ご 2 ア Y9 323 


(10?)【 プ ログ ラム 例 】 




















COMMON x% 7% x%、 y% の 宣言 

x% = 54 ェ %, y% に 値 を 代入 

y% = 25 

Seki% = x%* y% 積 を seki%(C 代 入 

PRINT X%: "まま: y%: =" seki% 結果 の 表示 

CHAIN “b:ree-105. bas"ーーーーーーーーー フ ァイル ree-105 へ チェ ー ン 
END 


【 プ ログ ラム 例 】 (ree-105 の プロ グラ ム ) 


COMMON a% b% a%, b% の 宮 言 
amari% = a% MOD D% 一 一 _ 剰余 の 計算 





























PRINT a "/"| b% "7" amari% 結果 の 表示 
END 
【 結 果 】 
54 * 25 = 1350 
54 / 25 ノア マリ = 4 
(108)【 プ ログ ラム 例 】 
DECLARE SUB ss () サブ ルー チン の 宣言 
COMMON SHARED x, y ーーーーーーーーー ーー*,、 を グロ ー バ ル K 宣 言 
INPUT x,y x, ゞ の 入力 
CALL ss サブ ルー チン を 呼び 出す 
S=X ネ *y テ *y の 値 の 表示 
PRINT xy "=": ーー 
END 
SUB ss サブ ルー チン 
STATIC xy グロ ー バ ル 変 数 x。 y を 一 時 的 に ロー カル で 使用 
INPUT x, y *, ゞ を 入力 
S=X ま X 寺 Y*y x"+y* を 求め て 表示 
PRINT xi "21": y) "2=": s 
END SUB 
【 結 果 】 
ます の みく の 12.3、2.5, 1 .55, 8.25 を 入力 の 例 


? 1.35,8.23 
1.35 “2+ 8.23 ^2= 69.5554 
12.3 * 2.5 = 30.75 
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(109)【 プ ログ ラム 例 】 


(110) 





DECLARE SUB ss ()ーーーーー サ プル ー チ ン の 宣言 

DIM a$(1 TO 10) 一 一 一 一 配列 の 宣言 
FORi=11T010 配列 に デー タ を 読み 込む 

NEXT i 

CALL ss サブ ルー チン を 呼び 出し て 実行 
END 


DATA Tokyo, 0saka, Nagoya, Fukui, Sapporo 
DATA Yokohama, Kawasaki, Takamatsu, Fukuoka, Sendai 





SUB ss サブ ルー チン 
SHARED a$() 一 一 一 一 一 一 配列 &$ を 共用 する 


FOR i = 1 10 10 a$ の 表示 
PRINT a$G) 
NEXT i 
END SUB 
【 結 果 】 


Tokyo 
Osaka 
Nagoya 
Fukui 
Sapporo 
Yokohama 
Kawasaki 
Takamatsu 
Fukuoka 
Sendai 


【 ブ プロ グラ ム 例 】 


DECLARE FUNCTION x () ーー 一 一 一 *UNCTTON の 宮 言 
FOR i = 1 TO0 10 一 一 ーーーーー 1 を 1 か ら 10 まで く り 返し 


PRINT 1i "1 ギ ロ ュ メ ュ ニ の 後に 1* を 表示 
PRINT x 
NEXT i 


END 








FUNCTION x FUNCTION x 
SHARED i ロー カル 変数 1 を 一 時 的 に 共用 で 使う 
X = ji * 1 一 一 一 1? を FUNCTTON の 値 と する 

END FUNCTION 


【 結 





【 


16 
25 
36 
49 
64 
81 
= 100 


% 光 区 区 汗 芝 
人 ら の ココ の の いよ の いい ビ 


つの 上 上 昌 昌 日 昌 昌 昌 昌 


テーO の ココ の の の や ピ 


つ 
に コ 
3 


227 


上 l プロ グラ ム 編 


2 
(111)【 プ ログ ラム 例 】 


COMMON a AS INTEGER 
COMMON b AS LONG 
INPUT a 
D=a*a*a 
PRINT a 

PRINT b 

END 


【 結 果 】 


? 8 
8 
512 


(112)【 プ ログ ラム 例 】 


COMMON a AS SINGLE 
COMMON b AS SINGLE 
COMMON c AS DOUBLE 
INPUT ab 
c=a/b 

PRINT a: b 

PRINT c 

END 


【 結 果 】 
? 2354.25,12.85436 


2354.25 12.85436 
183.1479797363281 
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14 章 算術 関数 


SIN, COS, TAN、 ATN, SQR, ABS、 0G, EX CINT, CLNG, 
TNT, FTX, SGN, RANDOMTZE、RND, TITMER 


ーー て テテ ーー で a で ・ 





【 例 題 97】 3 角 関数 
角 30 度 の sin, cos, tan の 値 を 求め る プロ グラ ム を つく れ . 











【 解 説 】 ⑨③ 53 角 関 数 の sin、cos, tan を 求め ます . 

① 5 角 関 数 の 値 は 次 の 形 で 求 ま り ます . た だ し , x* は ラジ アン 単位 で す . 
正 尺 Sin(x) sin(x/180*3.14159) で x 度 の 場合 が 求まる 
余弦 coS( テ ) cos(x/180*3.14159) で x 度 の 場合 が 求まる 
正 接 tan(x) tan(x/180*3.14159) で x 度 の 場合 が 求まる 

【 プ ログ ラム 例 】 


x = 30 / 180 * 3.14159 30 度 の ラジ アン の 値 を x に 代 人 
PRINT SIN(x) ーーー SIN、COS、TAN の 値 を 表示 
PRINT COS(x) 

PRINT TAN)- 一 ーーーー デ 
END 


【 結 果 】 


・4999996 
・8660256 
.5773497 











【 例題 98】 アー クタ ンジ ェ ン ト 
ト 図 の 角度 を 求め る プロ グラ ム を つく れ . 





30 一 











【 解 説 】 〇 アー クタ ンジ ェ ン ト を 求め ます - 
① アー クタ ンジ ェ ン ト は 次 の 式 で 求め ます . た だ し , 結果 は ラジ アン で す 
ATAN(x) 
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【 プ ログ ラム 例 】 
xx = ATN(25 / 30) 一 一 - アー クタ ンジ ェ ン ト の 値 を 求め る 
X =xx*180 / 3.14159 ェ g ラジ アン を x 度 Cc 変換 する 
PRINT x:" ド " 
END 

【 結 果 】 
39.8056 ト ~ 





【 例 題 99】 平方 根 
ド 図 の * の 長 さ を 求め る プロ グラ ム を つく れ . 














【 解 説 】 G⑥ 平方 根 を 求め ます . 
① 平方 根 は 次 の 形 で 求め ます . 
SQR(x) 
②③ し た が っ て , 5 角形 の 斜 辺 の 長 さ は 15*+9* で すか ら SQR(15*+9?) で 求め られ ます - 
【 プ ログ ラム 例 】 


X = SQR(15*15+9*9) 
PRINT x 
END 
【 結 果 】 
17.49286 





y 15*+9* を 求め る 





【 例 題 100】 絶対 値 
整数 を 2 つ 入力 し て , その 差 を 求め る プロ グラ ム を つく れ . 








【 解 説 】 ⑥ 絶対 徒 を 求め ます . 
① る 数 の 差 は , 2 数 の 差 の 絶対 値 で す . 絶対 値 は 次 の 式 で 求め ます 





ABS(x) 
⑬⑨ し た が っ て , a と b の 差 は 次 の 式 で 求 ま り ます -. 
の ABS(b-a ) で ゃ 同じ で す . 
【 ブ プロ グラ ム 例 】 
INPUT a, b---- 一 一 -a と も b の 入力 
PRINT ABS(a - b) & と b の 差 を 求め る 
END 


14 章 算術 関数 
ーー で ーー ニー ンー デーm< ニ テー デー デー ニー ニー ニー ペー エアー ニー デー テニ や PTE エー ニー マー の テー テー で キー ー 8 








【 結 果 】 
? 5,2 5 と 2 を 入力 の 例 
3 
9 35 る と 5 を 入力 の 例 





【 例 題 11】 対 数 
100 万 円 を 年 利率 4・8% で 預金 し た と き 200 万 円 に な る の に 何 年 か か る か を 求め る プロ グラ 


ム を つく れ . 








【 解 説 】 〇 対数 を 求め ます . 


① 100 万 円 を 4.8% の 年 利率 で 預金 し た と き 7 年 で 200 万 円 に な る と し ます . する と 次 の 式 と な り 


ます . 
100*(1+0.043)*=200 …… (1) 
し た が っ て , (1+0.048)*=2  …… ( ぅ ) 
対数 を と る と , ylog(1.043)=1og 2 
し た が っ て , y=1og 2/1og(1.043) 


⑤⑬ 対数 は 1og(x) で 表わさ れ ま す . 
し た が っ て , yl1og(1.043)=1og(2) と な り 、, 


_ 1og( る ) 
ツー ュ og(1.045) 


で すゞ が 求 ま り ます . 
な お , y 年 は 整数 で すか ら 切 りあ げ で y を 求め ます . 
⑬ な お , 常用 対数 と 自然 対数 は 次 の 関係 で 求め られ ます 


10g。 
1og。10 





0gio 文 ニ 


10G(x) は e を 底 と する 自然 対数 の 値 で す . 
④ LOG(x) の x は 正 の 値 で , x が 単 精度 実数 の と き は 結果 も 単 精度 実数 , x が 倍 精 度 実数 の と き 結 
果 $ 倍 精度 実数 と な り ま す - 
⑤ e の 値 は お よそ 2・718282 で す - 





【 ブ プロ グラ ム 例 】 
= LOG(2) / LOG(1.043) ゞ 年 を 求め る 
PRINT INT(y + .99999)9ーーーー? 年 を 切り あげ る 
END 
【 結 果 】 
17 
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【 例 題 102】 指数 関数 
e*Y を 求め る プロ グラ ム を つく れ . 











【 解 説 】 ⑥ 指数 関数 を 求め ます . 
① e* は REXP(5.87) で 求め られ ます -. 
【 プロ グラ ム 例 】 


Y = EXP(3.87) 一 一 指数 関数 値 を 求め る 
PRINTy 
END 


【 結 果 】 
47.94238 





【 例 題 103】 四捨五入 、 切 りあ げ , 切り す て 
15.28 と 558・.29645 を 各々 小数 点 第 2 位 と 第 4 位 で 四捨五入 切り あげ , 切り す て で 
各々 小数 第 1 位 と 第 3 位 ま で 求め る プロ グラ ム を つく れ . 








【 解 説 】 〇 四 捨 却 入 、 切り あげ , 切り す て を し ます 
① 四 捨 左 人 は CINT、CLNG を 使い ます . これ ら は 小数 点 以 下 を 四 捨 入 し て , それ ぞ れ 整 数 、 長 牧 
数 と し ます . 
@) 任意 の 桁 で 四 捨 元 人 する に は 次 の よう に し ます . CINT を 例 と し ます . 10* を 掛け た り , 割っ た り 
し た 人 後 CINT を 行い その後 10* を 掛け た り , 割っ た り し て 元 へ 戻し ます . 
15.38 CINT(15.38) つ 15 
CINT(15.38*10)/10 一 15.4 
CINT(15.38+10)*10 一 20 
③ 切り す て は int を 使い ます . int は 切り す て で 整数 化し ます . 任意 の 桁 位置 で の 切り す て は 中 捨 
五 和信 と 同じ 考え で す . 
15.38 INT(15.58 ) >15 
INT(15.38*10 )/10 >15.5 
INT(15.38+10)*10 一 10 
④ 切り あげ は int を 応用 し ます . 切り あげ を 行う 桁 が 1 以上 の と き c 切 りあ げ ま すか ら , その 桁 に 
9 を 加え て か ら 切 りす て すれ ば 同じ 結果 が 得 ら れ ま す . 
15.38 TNT(15.88+0.9) >16 
INT(15.38*10+0.9)/10 一 15.4 
INT(15.38+10+0.9)*10…20 
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【 プ ログ ラム 例 】 
x = 15.38 
y# = 358.29645# 
x1 = CINT(x * 10) / 10 -ーーーーーーー 小数 第 2 位 で 四捨五入 
x2 = INT(x * 10 + .9) / 10ー 一 一 一 一 一 小数 第 2 位 で 切り あげ 
x3 = INT(x * 10) / 10 一 ーーーーー 小数 第 2 位 で 切り す て 
yl = CLNG(y# * 1000) / 1000 ーー 一 小数 第 4 位 で 四捨五入 
Y2 = INT(y# * 1000 + .9) / 1000 小数 第 4 位 で 切り あげ 
yY3 = INT(y# * 1000) / 1000 一 ーー 小数 第 4 位 で 切り す て 
ーー 
PRINT y1, y2, y3 
END 

【 結 果 】 
15 .4 15.4 643 
358.296 358.297 358.296 





【 例題 104】 整数 部 分 の 値 の と り 出し 
-55.86 の FIX 値 と 15.38 の INT 値 を と り 出 す プ ログ ラム を つく れ . 





ー 4 ー 3 ー 2 ー 1 0 1 2 3 4 5 
0 一 we 1 1 トー 1 1 大 
ーー に INT は 値 よ り 常 に 小 
INTIFIX INT 
ー2. 5 FIX| 
2. 5 
INT(-2.5) …-5 INT(2.5) つ 2 プラ ス の と き 
FIX(-2.5) 一 -2 FIX(2.5) >2INT と TITX は 同じ 


マイ ナス の と き INT と FIX は 異な る 











【 解 説 】 〇 整数 部 の 値 を と り 出し ます . 
① FIX は INT と 整数 部 を と り 出 す 点 で 似 て いま す が , マイ ナス の 場合 で は 異な り ま す . INT は そ 
の 値 を こえ な い 最 大 の 整数 値 で す . FIX は 整数 部 の 値 で す . 








【 プ ログ ラム 例 】 
x = -35.86 
y = 15.38 
xl = FIX(x) -35・86 の 整数 部 の 値 
yl = INT(y) 15.58 を と えな い 最 大 の 整数 値 
PRINT x1, y1 
END 
【 結 果 】 
-35 15 
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【 例題 105】 SeN 
y=ax'+2x+o の 式 で a の 値 を 入力 し . プラ ス の と き " シ タ ガ ト ツ ",a<0 の と き "ウェ エ 
ガ ト ツ ", a=0 の と き " チ ョ クセ ン "と 表示 する プロ グラ ム を つく れ . 














【 解 説 】 〇 SGN は 値 の 範囲 に よっ て 1, 0, -1 を 与え ます -. 
① る 次 式 の 値 は a の 値 が プラ ス , マイ ナス , 0 に よっ て 次 図 の よう に な り ま す . 


②⑤ を 人 入力 し , SGN(a) に よっ て , a が プラ ス の と き SGN(a ) は 1. マイ ナス の と き -1, 0 の と き 
0 と な り ま す . し た が っ て , a の 値 に よっ て SGN の 値 を 8 つ に 分 け て 分 岐 し ます . 
【 プ ログ ラム 例 】 








INPUT a ーーーーーーーーーーーーー- a の 入力 
s = SGN(a) & の SGN を s に 求め る 
IF s > 0 THEN S の 値 に よっ て 表示 を 選ぶ 








PRINT "2 が トゲ 

ELSE 

IF s=0 THEN 
PRINT "旋光 ゲ 
ELSE 


PRINT " 旭 が ト ツ 


END IF 
END 


【 結 果 】 


? 5 5 を 入力 の 例 

シタ カ ~ ト ツ 

, っ = -4 を 入力 の 例 
ウェ カ ~ トウ - 

? 0 0 を 入力 の 例 

チョ クセ ン 





【 例 題 106】 乱 数 
1000- 9999 の 乱数 を 100 個 つ くり , 1000 台 , 2000 台 . …9000 台 が 各々 いく つ で き 
た か を 求め る プロ グラ ム を つく れ . 








【 解 説 】 乱数 を つく り ま す . 

① 乱数 は RND で つく り ま す が , これ だ け で は 同じ 乱数 系 列 を 使う た め 、 プロ グラ ム を 実行 する ご と 
に 同じ 値 が くり 返し で きま す . これ は , シミ ュ レ ーション な ど で , シス テム の 構成 を 変え て 再び トラ 
イ す る 場合 に は 有効 で す が . ゲー ム で は 同じ こと と の く り 返 し で お も し ろく あり ませ ん . 乱数 系 列 を 変 
える 命令 が RANDOMTZE で す . 
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⑨ RANDOMIZE は 実行 され る と 数 値 を 聞い て き て , 値 を 入力 する と その 値 の 乱数 系 列 を つく り ま す . 
つく られ る 乱数 は 新しい 系 列 と な り ま す 
③ 自動 的 に 新しい 乱数 系 列 を つく り た いと き は TIMER を 利用 し て , 刻々 か わる 時 間 の 数 値 を 利用 し 
て つく り 出 し ます . 
④ RND(x) は x の 値 に よっ て 0 か ら 1 未 満 の 乱数 を つく り ま す . x が 正 ま た は FRND の み の と き は 次 
の 乱数 を つく り ま す . 0 の と き は 1 つ 前 の 乱数 , 負 の と き は 同じ 乱数 を つく り ま す . 
RND(5) の 値 を & と する 
RND(3) の 値 を b と する 
RND(4) の 値 を c と する 
RND(0) は b と な る 
RND(5) の 値 を d と する 
RND(-5) は d と な る 
⑤ 次 に 乱数 は 0 か ら 1 未満 の 値 で すか ら こ と れ を 使っ て 1000 か ら 9999 の 数 に し ます . と の 方 法 は 
次 の と お り で す . 
INT(RND(5)*9000)+1000 





























0 か ら 8999 の 値 と な る 
- 般 化す る と & か ら b の 間 の 乱数 を つく る と き は 次 の よう に な り ま す . 
INT(RND(5)*(b-a+1 ) ) +& 





【 プ ログ ラム 例 】 
DIM z%(1 T0 9) 
RANDOMIZE (TIMER) 100 個 の 1000~9999 の 乱数 を 
FOR i = 1 TO 100 つく り カ ウン ト す る 


x% = INT(RND(5) * 9000) + 1000 
y% = INT(x% / 1000) 
2%(y%) = 2%(y%) + 1 
NEXT i 
FOR i=1TO9 結果 の 表示 
PRINT i* 1000: "が 信 ": 2%⑪) 
NEXT i 
END 


【 結 果 】 


1000 ダイ = 13 例 ① 
2000 ダー イ = 12 

3000 ダイ = 9 

4000 ダイ = 8 

5000 ダイ = 13 

6000 ダイ = 7 

7000 ダイ = 13 

8000 ダイ = 10 

9000 ダ “ イ = 15 














1000 タ ~ イ = 10 例 ③ 
2000 タダ“ イ = 11 

3000 ダ ~ イ = 9 

4000 タダ ~ イ = 11 

5000 ダイ = 14 
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6000 ダイ = 9 
7000. タ ダイ = 11 
8000 ダイ = 15 
9000 ダイ = 10 





【 例 題 107】 乱数 を 使っ た シミ ュ レ ーション 
3 割 2 分 5 庫 の 成績 の 打者 の 今後 30 打席 の ヒッ ト の 確率 を 求め る プロ グラ ム を つく れ . 











【 解 説 】 〇 乱数 を 使っ た シミ ュ レ ーション 

① 乱数 を 使っ た シミ ュ レ ーション を 行う 例 を 1 つ 示 し ます . 

②③ 5 割 2 分 5 大 の 打率 の 打者 の ヒッ ト の 確率 は ・525 で す . し た が っ て , 乱数 が 0~1 未満 と すれ 

ば 乱数 を つく っ て 0^  .3225 の と き は ヒッ ト , それ 以外 で は アウ ト と すれ ば よい と と に な り ま す . 

⑬ 乱数 を 80 回 つく っ て , 0- .325 の 数 を 数 え , 80 で 割れ ば , 今後 30 打席 の 打率 と な り ま す . 

【 ブ プロ グラ ム 例 】 
RANDOMIZE (TIMER) 
FORi=11T030 

x = RND(5) 


IFx<=.325THENd=d+1 
NEXT i 


PRINT d / 30 一 一 一 ーーー 打率 の 計算 
END 


【 結 果 】 


・2666667 [ 例 〕 5 回 実行 し た ゃ の 
・4333333 

・2 

・3 

・2333333 


乱数 を つく り , 825 以下 の 
と き 数 を 数 える 








[演習 問題 ] 


(115) 下図 の x を 求め る プロ グラ ム を つく れ . 


100 


(114) 下図 の x を 求め る プロ グラ ム を つく れ . 


に 


100 
っ) 


ェ 





(115) 下図 の x を 求め る プロ グラ ム を つく れ . 


ー 
ーー / 
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(116) 


(117) 
(118) 


(119) 


(120) 
(121) 


(115) 


(114) 


(115) 
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下図 の x 度 と y 度 を 求め る プロ グラ ム を つく れ . 





25 
/ 
1 


30 一 


3x"+2x-2=0 の 式 で の x の 値 を 求め る プロ グラ ム を つく れ . 

小数 点 以下 8 桁 の 数 を 1 つ 入力 し , 小数 第 3 位 を 四 捨 五 人 , 切り あげ , 切り す て で 小数 点 
以下 第 2 位 ま で の 値 を 求め ' る プロ グラ ム を つく れ . 

150 万 円 を 年 利率 5.1% の 複利 預金 を し た と き , 元利 合計 が 3 倍 と な る の に 必要 な 年 数 を 
求め る プロ グラ ム を つく れ . 











基準 地 か ら の 距離 を 2 つ 入 力 し て , その 地区 間 の 距離 を 求め る プロ グラ ム を つく れ 
サイ コロ を 10 回 ふっ て 16 の 目 の 出 か た を シミ ュ レ ー ト する プロ グラ ム を つく れ . 
[ 解 答 」 

【 プ ログ ラム 例 】 

x = 18 / 180 * 3.14159 18 度 の ラジ アン 値 

PRINT 100 * SIN(x) -- 一 一 一 一 x ラジ アン の SIN 値 *100 

END 

【 結 果 】 

30.90168 

【 プ ログ ラム 例 】 

x = 22 / 180 * 3.14159 22 度 の ラジ アン 値 

PRINT 100 * COS(x) 一 一 一 一 * ラジ アン の COS 値 *100 

END 

【 結 果 】 

92.7184 

【 プ ログ ラム 例 】 

x = 13 / 180 * 3.14159 13 度 の ラジ アン 値 

PRINT 3776 / TAN(x) ーー 一 テ * ラジ アン の TAN 値 *5776 

END 

【 結 果 】 

16355.67 
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(116)【 プ ログ ラム 例 】 


x = ATN(30 / 25) 一 一 ーー アー クタ ンジ ェ ン ト 
y = ATN(25 / 30) 
x1l = x*180 / 3.14159 一 一 *, ゞ ラジ アン を 度 変 換 
y1 =y*180 / 3.14159 一 一 
PRINT x1:" ド " 

PRINT y1:" ド “" 

END 


【 結 果 】 
50.19447 ト ^ 
39.8056 ト ~ 





(117)【 プ ログ ラム 例 】 











2Z =SQR(2*2-4*3 キ * (-3)) vbD*-4ao 

x1 = (-2+ 2) / (2 * 3) 一 一 一 一 一 ーb+、/b*-4ao 

x2 = (-2 -2) / (2* 3) 2a 

PRINT x1, x2 ーb-、b*-4aG 

END 2a 

【 結 果 】 

-7207592 -1.387426 

(118)【 プ ログ ラム 例 】 

INPUT x * を 入力 

xl = CINT(x * 100) / 100 一 一 一 一 一 小数 第 8 位 で 四 捨 五 人 

x2 = INT(x * 100+ .9) / 100 小数 第 3 位 で 切り あげ 

x3 = INT(x * 100) / 100 一 一 一 一 一 一 小数 第 8 位 で 切り す て 

PRINT x1, x2, x3 

END 

【 結 果 】 

? 1.354 1.354 を 入力 の 例 
1.35 1.36 1.35 

? 12.459 12.459 を 入力 の 例 
12.46 12.46 12 .45 


(119)【 プ ログ ラム 例 】 








y = LOG(3) / LOG(1.051) ゞ 年 を 求め る 
PRINT INT(y + . 99999) ゞ 年 を 切り あげ る 
END 

【 結 果 】 

23 


14 章 算術 関数 


ey 


(120)【 プ ログ ラム 例 】 


INPUT a,b 

PRINT "a=": a 

PRINT "bs": b a, b の 入力 
PRINT "キリ =": ABS(a - b) と ゃ の 差 を 来 め る 
END 


【 結 果 】 


? 152,.987 152 と 987 を 入力 の 例 
a= 152 
b= 987 
キヨ ョ リ = 835 
? 562.157 562 と 157 を 入力 の 例 
a= 562 
= 157 
キョ リ = 405 


(121)【 プ ログ ラム 例 】 


RANDOMIZE (TIMER) 
y=1/6 

FOR i = 1 TO 10 
RND(5) 


1-6 を 乱数 で つく り 各 々 を 表示 する 














IF x <= y THEN PRINT 1: 
IFx>yANDx<2*yTHENPRINT 2: 
IFx>2*yANDx<=3*yTHENPRINT 3: 
IFx>3*yANDx< で 4*yTHENPRINT 4: 
IFx>4*yANDx<5*yTHENPRINT5: 
IFx>5*y THEN PRINT 6: 

NEXT i 

PRINT 

END 

【 結 果 】 

5 6 1 3 6 3 3 5 5 6 5 回 実行 し た 例 

5 1 4 5 1 6 2 2 2 4 

4 3 5 2 4 4 6 2 2 6 
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AND, 0R, X0R, EQ V, TMP, NOT 





【 例題 108】 AND 
15 と 5 の AND, -15 と 3 の AND を 求め る プロ グラ ム を つく れ . 











【 解 説 】 〇 ARND を 求め ます . 
① 論理 演算 は ビッ ト 操 作 を する と き に ゃ 使い ます . 16 ビッ ト で 先頭 を 符号 と し , プラ ス の と き 0, 
マイ サス の と き ぎ 和 1 と も ます. 
③ 15, 8 を 16 ビッ ト , 先頭 を 符号 で 表わす と 
符号 2 27 22 21 210 29 29 27 26 25 24 25 22 21 20 
A=15 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 
B=8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 
と な り ま す . し た が っ て , 
AANDB 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 
と な り ま す . し た が っ て , 15 AND 3 は , 32 です. 
⑬ -15、 38 を 16 ビッ ト , 先頭 を 符号 で 表わす と 
符号 27 27 2 21 210 29 29 27 26 25 24 25 22 21 2 
A=ー15 4 乱 衣 秋 了 知生 生 生 和 陳 生ま 爺 普 剖 各 
B=5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 
と な り ま す . し た が っ て , 
AAND B 0O 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 
と な り ま す . し た が っ て , -15 AND 5 は , 1 です. 


マイ ナス の 値 は 補 数 で 表わさ れ ま す . 
【 プ ログ ラム 例 】 【 結 果 】 
x1% = 15 。 企 
y1% = 3 1 
x2% = -15 


15 と 3 の AND 
-15 と の AND 





PRINT x1% AND y1% 
PRINT x2% AND y1% 
END 
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【 例 題 109】 OR 
15 と 5 の OR と -15,、 3 の OR を 求め る プロ グラ ム を つく れ . 











【 解 説 】 〇 0R を 求め ます . 
① 15 お よび 3 を 16 ビッ ト で , 先頭 を 符号 で 表わす と 


待 生 0 0 2 20 80 20 20 2 20 20 2 2 2 2 の 2 
A=15 0 0 0 0 0 0 0 胡 遂 0 際 各 理 生 馬 人 き 
婦 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 
と な り ま す . し た が っ て , 
AORB 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 
と な り ま す . し た が っ て , 15 OR 5 は , 15 で す . 


③ -15 と 8 を 16 ビ ッ ト , 先頭 を 符号 で 表わす と 











符号 の 14 め 19 た の 219 ジウ 29 の 7 ら $ 25 の は 23 の を 8 ら 9 
A=-15 1 央 稀 曹 中 和光 包 区 外 午 ⑳⑩ ⑩ 代 剖 
B=3 0 0 0 0O 9O Q⑩0 0 0 ⑳0 0 0O 0 ⑩ @ 1 1 
と な り ま す . し た が っ て , 
AORB 1 多 所 呈 主 証 所 年 浅 1 凍 馬 伸 償 証 色 
で す . と れ は -+5 で す . 
【 プ ログ ラム 例 】 
x1% = 15 
y1% = 3 
x2% = -15 
PRINT x1% OR y1% 15 と 3 の OR 
PRINT x2% OR y1% -15 と 3 の OR 
END 
【 結 果 】 
15 
-13 
【 例題 110】 XOR 





15 と 5 の XOR, -15 と 3 の XOR を 求め る プロ グラ ム を つく れ . 








【 解 説 】 


〇 XOR を 求め ます . 


①④ 15, 3 を 16 ビ ッ ト , 先頭 を 符号 で 表わす と 


A=15 
B= る 2 


符号 の 4 の 1? 212 る の 230 3 5 過 ウル る の 『 
0 0 0 0 0 0 0 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 0 


23 ぢ 


2* 
0 
0 


23 
1 
0 


23 
由 
0 


21 


1 
1 


29 
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と な り ま す . じ た が っ て , 
A XOR B 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 
と な り ま す . し た が っ て , 15 XOR 3 は , 12 です. 
③ -15 と 8 を 16 ビッ ト , 先頭 を 符号 で 表わす と 
符号 24 27 2 21 210 29 29 27 26 25 24 25 22 21 20 
A=-15 1 中 外 多 も 生 下 放 朱 江馬 ⑬ ⑳ ⑳⑩ + 
B=5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 
と な り ま す . し た が っ て , 
A XOR B 1 1 中 も 乱 叶 旨 4 下 所 生 下 ⑧ @0 @ 0 
で す . と れ は -14 で す . 
【 プ ログ ラム 例 】 


x1% = 15 

y1% = 3 

X2% = -15 

PRINT x1% XOR y1% 
PRINT x2% XOR y1% 
END 


【 結 果 】 
12 
-14 





15 と 3 の XOR 
-15 と 3 の XOR 








【 例題 111】 EQV 
15 と 3 の EQV,. -15 と る の TRGQV を 求め ある プロ グラ ム を つく れ . 











【 解 説 】 〇 EQV を 求め ます . 
① 15 と 5 を 16 ビッ ト 、, 先頭 を 符号 で 表わす と 
符号 14 め 13 の 12 る 11 80 29 み 38 の 25 ら 3 め * 23 に 2 2@9 


A=15 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 

B=93 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 
と な り ま す . し た が っ て , 

A EQV B 1 1 1 1 1 1 1 1 1 1 1 1 0 0 1 1 


で す . と れ は -18 で す . 
②③ -15, 5 を 16 ビッ ト , 先頭 を 待 号 で 表わす と 
符号 の 14 みる の 12 0 w10 めき 28 PA ら み $ 25 2 らき < ら + 89 


A=-15 も ユ よ 革 皇 呈す 本 ュ エエ 針 介 人 0 ma 

B=5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 
と な り ま す . し た が っ て 。 

4 EQVB 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 1 


と な り ま す . し た が っ て , -15 EQV 3 は , 15 です. 
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【 プ ログ ラム 例 】 

















x1% = 15 
y1% = 3 
x2% = -15 
PRINT x1% EQV y1% 15 と 8 の REQV 
PRINT x2% EQV y1% -15 と 3 の EQV 
END 

【 結 果 】 
-13 
18 

【 例題 112】 IMP 


15 と 8 の IMP -15 と ら 5 の IMP を 求め る プロ グラ ム を つく れ . 

















【 解 説 】 〇 TIME を 求め ます . 
① 15.8 を 16 ビッ ト , 先頭 を 符号 で 表わす と 
符号 27 25 22 21 20 29 29 27 20 2 2 20 220 2 2 の 
A=15 OO ⑩ 皿 0 介 9 @ 人 9 ⑳⑩ 9 愉 4 1 主 せ 
B=5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 
と な り ま す . し た が っ て , 
AA TMPBB 氏 叶 生ま 重 角 年 年 品 和 呈 表 エ 0 @ t 全 
で す . これ は -152 で す . 
③ -15 と 8 を 16 ビット 、 先頭 を 符号 で 表わす と 
符号 47 27 82 21 20 29 220 27 20 27 20 250 22 2 20 
AA==3 生 儲 。 1 ま 避 生 も 革 肖 中 3 半生 鑑 ⑳ 仙人 基 
B=3 は , 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 
と な り ま す .。 し た が っ て, 
ATIMPB は , 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 
と な り ま す . すなわち , -15 IMP 3 は , 15 です. 
【 プ ログ ラム 例 】 
x1% = 15 
y1% = 3 
x2% = -15 
PRINT x1% IMP y1% 15 と 3 の IMF 
PRINT x2% IMP y1% -15 と 3 の 1ME 
END 
【 結 果 】 
-13 
15 
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【 例題 113】 NOT 
15 の NOT と -15 の RNOT を 求め る プロ グラ ム を つく れ . 











【 解 説 】 〇 NOT を 求め ます . 
① 15 を 16 ビッ ト で , 先頭 を 符号 で 表わす と 
待 純 27 2 27 21 20 29 29 27 26 25 24 23 2 21 po0 
A=15 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 
で す . し た が っ て , 
NOT A 1 1 芽 1 帳 6 貼 外 1 1 北 0 0 0 0 
で す . と れ は -16 で す . 
③ -15 を 16 ビッ ト で , 先頭 を 符号 で 表わす と 
符号 27 27 2721 20 29 29 27 26 25 24 253 22 21 20 
A ニ = ニー15 各 由 1 1 1 1 1 斑 目 紅 Bl 0 0 0 1 
で す . し た が っ て , 
NOT A 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 
で す . し た が っ て , 14 で す . 
【 プロ グラ ム 例 】 


x1% = 15 

x2% = -15 
PRINT NOT x1% 
PRINT NOT x2% 
END 


【 結 果 】 


= きま 6 
14 


15 の NOT 
-15 の NOT 








| 演習 問題 」 


(122) 189 と 25 の AND を 求め る プロ グラ ム を つく れ 

(128) 29 と -8 の 各々 の TNOT の 0R を 求め る プロ グラ ム を つく れ . 

(124) 80 と 758 の TMP と 80 と 73 の EQV の OR を 求め る プロ グラ ム を つく れ 
(125)  -15 と 85 の XOR を 求め ある プロ グラ ム を つく れ 
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(122) 


(123 


(124) 


(125) 











[ 解 答 ] 
【 プ ログ ラム 例 】 
x1% = 189 
x2% = 25 
PRINT x1% AND x2% 
END 
【 結 果 】 
25 
【 プ ログ ラム 例 】 
x1% = 29 
x2% = 一 
PRINT (NOT (x1%) OR (NOT (x2 め 9) (29 の NOT) と (-8 の NOT) の OR 
END 
【 結 果 】 
-25 
【 プ ログ ラム 例 】 
x1% = 80 
x2% = 73 
PRINT (x1% IMP x2%) OR (x1% EQV x2% (80 IMP 78) と (80 EQV 73) の 0R 
END 
【 結 果 】 
-17 
【 プロ グラ ム 例 】 
x1% = -15 
x2% = -85 
PRINT x1% XOR x2% ー15 と -85 の XOR 
END 
【 結 果 】 
90 


16 草 文字 列 関数 


LEFT$,、 RTGHT$、 MTD$, LRN、 SPACE$、 LTRTMS、 RTRTMS, 
MTD$=、 TNSTR、 LCASRE$,、 UCASRE$、 STRTNG$ 





【 例 題 114】 文字 列 の と り 出 し 


"Miorosoft Quiok Basio" の 中 か ら "Miorosof も "。 "Basio"、 "Quiok" を と り 


出し て 表示 する プロ グラ ム を つく れ . 











【 解 説 】 〇 文字 列 の 中 か ら 任 意 の 文字 列 を と り 出し ます 
① a$ を "Miorosoft Quiok Basio" と し ます . 
(⑫② LEFT$、 RTGHT$,。 MTID$ は 各 々 8a$ の 中 か ら 文 字 列 を と り 出し ます . 





Miorosof セ t Quiock Basio 
し 。  」 L_ 
LEFT$(a$,9) MID$(a$,11,5 ) RTGHT$(a$,5) 
左側 9 文字 11 番目 か ら 5 文 字 石 側 5 文字 
【 プ ログ ラム 例 】 
a$ = “Microsoft Quick Basic 一 一 文字 列 を a$ic 代 入 
b$ = LEFT$(a$, 9) 左側 9 文字 を b$K 代 入 


c$ = RIGHT$(a$, 5) ーーーーーーー 右 側 5 文字 を c$c 代 入 
d⑮ = MIDS(a$, 11, 5) 一 一 ーー 11 番目 か ら 5 文字 を d$ に 代入 
PRINT b$ 較 c$,、 d$ の 表示 





PRINT c$ 
PRINT d$ 
END 


【 結 果 】 


Microsoft 
Basic 
Quick 








【 例 題 115】 文字 列 の 長 さ 
"Miorosof も Quiok Basio" を 1 文字 ずつ と り 出 し て 表示 する プロ グラ ム を つく れ . 











【 解 説 】 〇 文字 列 の 長 さ を 求 め ま す . 
① a&$ に "Miorosoft Quiok Basioc" を 代入 し ます . 


②③ TLEN(a$) は 文字 列 a$ の 長 さ , 文字 数 を 求め ます . 
と /// 
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了 ノ UE< 朗 om 














【 プ ログ ラム 例 】 
a$ = "Microsoft Quick Basic" 文字 列 を a$C 代 入 
b = LEN(a$) 文字 数 を b 代入 
FOR i = 1 TO b-- 一 ーーーーーーー 1 番目 か ら b 番目 まで 1 文字 ずつ と り 
c$ = MIDS(a$, i, 1) 出し て c$ へ 代入 し 、c$ を 順に 表示 
PRINT c$: 
NEXT i 改行 
PRINT _ 
END 
【 結 果 】 


Microsoft Quick Basic 





【 例 題 116】 空 白 
5 桁 3 行 目 か ら 5 つの 文字 列 を 入力 し て , 6, 8, 10, 12, 14 行 の 5 桁 目 か ら それ ぞ れ 表 
示す る プロ グラ ム を つく れ 





【 解 説 】 ⑥ 空白 を 表示 し ます . 

① 文字 列 を 入力 する 前 に , 同じ 行列 か ら 空白 を 表示 し て , 入力 する 位置 を 空白 に し ます . 前 回 入力 し 
た 文字 列 が 消え , 同じ 行列 か ら 文字 列 の 人 力 が で きま す . 

③ 空 折 は space$(x) で ェ 個 の 空白 を 持つ 文字 列 を つく り ま す . 





【 プ ログ ラム 例 】 
DIM a$6) 5 文字 列 の 入る 配列 変数 の 宣言 





LOCATE 3, 5: PRINT SPACES(30) 5 桁 5 行 目 か ら 30 空白 文字 を か く 


FORi=1T05 5 文字 列 の 入力 
LOCATE 3, 5: INPUT a$G) | 5 桁 5 行 目 か ら 文字 列 の 入力 











NEXT i 
FORi=1105 表示 
LOCATE 4+i*2. 5: PRINT a$G⑪) 
NEXT i 
END 
【 結 果 】 
ぎ た の 5 文字 列 を 入力 し た 例 


Microsoft 
Qui ck 
Basic 
Quick 


C 


| プロ グラ ム 編 


に = や pam ニーmpzr=ae っ om ニニ ーー 





ーー 





【 例 題 117】 空白 の 除去 
a$ を "| IMierosoft| ]"、b$ を "| Quiokl ]"。c$ を "| Basiol ]” (は 空白 ) と し て 
8a$+b$+o$ と 各 文 字 列 の 左側 の 空 折 を と っ て a$+b$+c$ を 表示 する プロ グラ ム を つ に の 


























【 解 説 】 〇 空 向 を 除去 し ます . 
① LTRTM$(a$) で 文字 列 a$ の 左側 (先頭 ) の 空 折 を と り ま す . 
a 軸 LTRTIM$(a$) 
| IMiorosoft| |" "Miorosoft| 1" 
②③ RTRTM$(a* ) は 文字 列 の 右側 の 空 百 を と り ま す . これ は 【[ 演 習 問題 ] (128) で 扱い ます . 
【 プ ログ ラム 例 】 




















a$ = ” Microsoft " a、 b$、 c$ に 各 文 字 列 を 代入 
b$ = "Quick “" 」 
c$ = " Basic " 
PRINT a$+b$+c$ 8$+b$+o$ の 表示 
PRINT LTRIMS(a$) + LTRIMS(b$) + LTRIMS(c$) 一 一 - 左側 の 空白 を 除去 し て a$+b$+oc$ を 表示 
END 
【 結 果 】 


Microsoft Quick Basic 
Microsoft Quick Basic 





【 例 題 118】 文字 列 の 入れ か え 
a$ を "Miorosoft Quiok Basio" と し 、 次 に "Basio" を "C[ 1] (| | は 空白 ) で 
入れ か えて 表示 する プロ グラ ム を つく れ . 





【 解 説 】 ⑥ 文字 列 の 1 部 の 入れ か え を し ます -. 
① a$ を "Miorosoft Quiok Basio" と し ます . b$ を "C[ | | "(| 」 は 科白 ) と し ます . 
⑨ "Basioc" の 部 分 を ”"C[ 上 "と 入れ か えま す . 


Miorosoft Quiok Basio 





FFFF ロ 
MTD$(a$,17 ,5) =b$ 














a$ の 17 番目 か ら 5 文字 を b$ で 入れ か え 











【 プ ログ ラム 例 】 
a$ = "Microsoft Quick Basic" a&$ に 文字 列 を 代入 
b$="C  " b$ に 文字 列 を 代入 
MIDS(a$, 17, 5) = b$ ーーーーーa$ の 17 番目 か ら 5 文字 を b$ で 入れ か え 
PRINT a$ a$ の 表示 
END 
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ーー ei 


【 結 果 】 


Microsoft Quick C 








【 例 題 119】 検索 

&$ を "Miorosoft Quiok Basio'。 b$ を "Miorosoft"、 o$ を "sof も "、 d$ を " 
Quick” と し て , a$ の 最初 か ら b$, c$, d$ が ある か どう か , また a&$ の 17 番目 以降 に d$ が 
ある か どう か を 検索 する プロ グラ ム を つく れ . 











【 解 説 】 〇 文字 列 の 検索 を し ます - 

① a$ を "Miorosoft Quiok Basic"。 b$ を "Miorosof も "。 o$ を "Soft も”。 d$ を "Quiok" 
と し ます -. 

② TNSTR(1a&$,b$) は a$ の 中 に b$ が ある か どう か を 検索 し ます . と の と き 1 番目 か ら さ が し ま 
す . 見 つか っ た 場合 , それ が 何 番 目 か ら あ る か , その 番号 を 与え ます . "Miorosoft Quiok Ba 
sio”" の 中 "Miorosoft” は 1 番目 か ら あ り ま す の で INSTR(1,a$,b$) は 1 で す . 見 つか ら 
な いと き は 0 です. 


【 プ ログ ラム 例 】 
a$ = "Microsoft Quick Basic" 一 一 了 文字 列 を a$ーd$ に 代 人 
b$ = "Microsoft" 
c$ = “soft" 
d$ = "Quick" 


PRINT INSTR(1, a$, b$) 一 一 一 一 一 ra$ の 中 で b$、 c$、d$ を 最初 か ら 検索 
PRINT INSTR(1, a$, c$) 
PRINT INSTR(1, a$, d$) 
PRINT INSTR(17, a$, d$) 一 a$ の 中 で d$ を 17 番目 か ら 検索 
END 


【 結 果 】 
1 


6 
11 
0 








【 例 題 120】 小文字 化 
Miorosoft Quiok Basio” を 小文字 で 表示 する プロ グラ ム を つく れ . 





【 解 説 】 〇 大 文字 を 小文字 化し ます . 

① 10CASE$(a$ ) は a$ の 中 の 大 文字 を 小文字 に し ます . 

②③ UCASE$(a$ ) は a$ の 中 の 小文字 を 大 文字 に し ます . と れ は [演習 問題 」 (131) で 扱い ます . 
【 プ ログ ラム 例 】 


a$ = "Microsoft Quick Basic" 文字 列 を a$C 代 入 
PRINT LCASES(3$) a$ の 大 文字 を 小文字 に し て 表示 
END 








上 l プロ グラ ム 編 


ll 
【 結 果 】 


microsoft quick basic 





【 例 題 121】 特定 の 文字 の 列 
"4” を 10 個 つない 文字 列 を つく る プロ グラ ム を つく れ . 











【 解 説 】 ⑨ 特定 の 文字 を 指定 し た 数 つない だ 文字 列 を つく り ま す . 
① STRING$(&,b) で は アス キー コー ド を b と する 文字 ・ 記 号 を a 個 つ な い だ 文 字 列 を つく り ま す . 
STRTNG$(10,65) 


し ーーー es すなわち "4" を 10 個 つ な い だ 文 字 列 


STRTNG$(10,"A”) で も よい . 
STRTNG$(10,& H41) で る よい . 
②③ b が 文字 列 の 場合 , 先頭 1 文字 と な り ま す . 
【 プ ログ ラム 例 】 


a$ = STRING$(10, 65) 
PRINT a$ 
END 





"A" を 10 個 つ な い だ 文 字 列 を a$c 代 入 
&$ の 表示 





【 結 果 】 


AAAAAAAAAA 





【 例 題 122】 グラ フ 
次 の 表 の デー タ を グラ フ と する プロ グラ ム を つく れ . 
成績 

名 前 | 点 

川上 | 80 

山下 | 90 

足立 | 56 

瀬島 | 74 






































【 解 説 】 〇 STRING$ を 使っ て ダラ フ を つく り ま す . 
① STRTNG$ を 使っ て 簡単 な グラ フ を つく り ま す . 
⑬ 100 点 を ”"*”50 個 で 表わす と すれ ば 各 人 の 点数 /2 個 の * を つない だ 文字 列 を つく っ て 表示 すれ 
ば 各 人 の 点 を 横 棒グラフ で 表 わ せ ます . 
例 
100 点 STRING$(100/2,"*”")  * が 50 個 の 文字 列 
と と 4 
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UTU て To 


90 点 
ェ 点 


STRING$( 90/2,"*”) * が 45 個 の 文字 列 
STRING$( x/2。"*”)  * が テ x/2 個 の 文字 列 


⑧③ 目盛 り と 軸 は ”"+" と "-" を 4 つつ な い だ 文 字 列 を 10 個 と 最後 に "+" を つけ ます . 
































D$="+"+STRTNG$(4,。"-") と する と b$ が "+ーーー-" と な り ま す . 
キーーーー キ ーーーー キ ーーー 一 "rrmm キ ーーーー 十 
0 b$ 10 b$ 20b$ 90 b$ 100 点 を 示す 
【 プ ログ ラム 例 】 
DIM a$(4), s$(4) a$ に 名 前 , 5$ に 点数 に あう 文字 列 が 人 る 
FOR i=1104 名 前 と 点数 を 読み 、 名 前 を a$, 点数 に あう 
READ a$G⑪), x "*" の 文字 列 を s$C 代 入 
s$(i) = STRINGS(x / 2. " ギ ) 
NEXT i 
D$ = "*"+ STRING$(4, "-") 一 一 ーーーーーーー b$ic" ォ ーーーー" を つく っ て 代 人 
LOCATE 3, 20: PRINT "4-〉 / セキ (?) "ーーーーーー 標題 
FOR i=1104 名 前 +, 点数 に あう * を 表示 
LOCATE 3+2*i, 10: PRINT a$G) 
LOCATE 839+2* 叫 16: PRINT ギ 
LOCATE 3+2*i, 17: PRINT sSG) 
NEXT i 
FORi=110 10 軸 の 表示 
LOCATE 13. 16+ ⑪i-1) * 5: PRINT DS 
NEXT i 
LOCATE 19,. 16+ (1 -1) * 5: PRINT 
FOR i = 0 TO 100 STEP 10 点数 を 表示 
LOCATE 14. 15+i/10*5: PRINTi 
NEXT i 
END 
DATA 加 が ,80.Yy2.90.77 あ 56, マ 74 
【 結 果 】 
導 己 み / 代 T セ お C ア ジ ) 
カワ カミ 寺 来 玉 来 来 来 来 来 来 来 来 来 玉 玉 玉 来 玉 玉 来 玉 玉 玉 来 来 来 来 玉 素 玉 玉 玉 米 玉 玉 玉 米 玉 玉 素 
ヤマ シタ  + 束 来 来 来 来 来 来 来 来 玉 来 玉 氷 来 玉 来 玉 玉 玉 来 来 玉 来 来 玉 来 ※※ 米 玉 来 玉 ※ 来 来 玉 玉 来 玉 素 玉 玉 
アタ ~ チ  + 来 来 来 玉 玉座 玉 玉 玉 玉 玉 来 来 玉 玉 玉 玉 素 玉 玉 玉 玉 玉 来 来 
セ ヤシ ~ マ 上 来 来 来 来 来 来 来 玉 来 来 来 来 来 来 来 来 来 来 玉 来 玉 玉 玉水 玉 来 ※ 来 玉 来 玉 玉 玉 玉 玉 玉 


+ ネ ーーーー+ キ ーーーー エーーーー エ ーーーー キ ーーーー キ ーーーー キ ーーーー キ ーーーー キ ーーーー キ ーーーー キ 

0 10 20 30 10 50 60 70 80 90 100 
上 生計 
[演習 問題 」 


(126) "マイクロソフト クイック ベー シッ ク "の 中 か ら , ャ ッ イ 性 イト 。 ペー ジウ 


光 : 


ッ ク イ ッ ク ” を 各々 と り 出 し て 表示 する プロ グラ ム を つく れ . 


(127) 文字 列 を 2 つ a$, b$C 代 入 し , 長い 方 を 表示 する プロ グラ ム を つく れ - 


クタ ちら 


中 プロ グラ ム 編 
ーーー ニ ーー ニーーーーーー ツ ーー て て て て て 


(128)  a$ を "[ Mierosoft[ 」", b$ を "| Quiok[ |"。 c$ を "| Basio[| |「 と し て a$+b$+o$ 
と , 各々 の 文字 列 の 右側 の 空 折 を と っ て a$+b$+o$ を 表示 する プロ グラ ム を つく れ . 

(129)  a&$ を "ダイ レク トモ ー ド "と し 、b$ を "ジッ コウ "と し a$ の 8 番目 か ら 5 文字 を b$ で 
入れ か える プロ グラ ム を つく れ . 

(130)  a$ を "Miorosoft Quiok Basic" と し , 文字 列 を bD$ に 入力 し て a$ の 中 (CC b$ が あれ 
ば a$ を , な けれ ば b$ を 表示 する プロ グラ ム を つく れ . 

(131) "Miorosoft Quiok Basio” を 大 文字 に し て 表示 する プロ グラ ム を や つくれ. 

(122) # を 10 個 つ な い だ 文 字 列 を 表示 する プロ グラ ム を つく れ . 

(135) "Miorosof も "の 先頭 1 文字 M を 20 個 つ な い だ 文 字 列 を 表示 する プロ グラ ム を つく れ . 

(124 ) 下 の デ ー タ を 棒グラフ に する プロ グラ ム を つく れ . 
























































5 社 の 初任 給 
社 名 | 初任 給 (万 円 ) 
中 西 SS 15 
日 本 鉄工 19 
東京 SS 22 
島 商 事 12 
本 多 印 刷 10 














(185) "Miorosoft” の 各 文 字 の 後 (CC 2 スペ ー ス を つけ て 表示 する プロ グラ ム を つく れ . 
(136) "USA" を 画面 大 か ら 右 へ 動か す オプ ログ ラム を つく れ . 


[ 解 答 ] 


(126)【 プ ログ ラム 例 】 


a8 = マロ 77 ト 7 人 7 パー-7 ッ 7" 文字 列 を a$c 代 入 

DS$ = LEFT$(a$, 7) ーーーーーー 左側 7 文字 を b$C 代 入 

c$ = RIGHT$(a$, 6) 右側 6 文字 を c$c 代 入 

d⑮ = MIDS(a$, 9, 4)ーーーーーーー 9 番目 か ら 4 文字 を d$ic 代 入 
PRINT b$ b$, oc$, d$ の 表示 

PRINT c$ 

PRINT d$ 

END 


【 結 果 】 
マイ クロ ソフ ト 
へ トー シッ ク 
キッ の み 














(12?)【 プ ログ ラム 例 】 


INPUT a$ ---ーーーーー 文字 列 を 入力 し て a$ へ 代入 
INPUT b$ 一 一 ーーー 文字 列 を 入力 し て b$ へ 代入 


クタ 6 
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UUuu ス テア 


(128) 


(129) 


(130) 


= LEN(a$) 一 ーー 一 8$ の 文字 数 を 11 に 代 人 
= LEN(b$) 一 ーー \$ の 文字 数 を 12 に 代入 
11 >= 12 THEN 長い 方 の 文字 列 を 表示 
PRINT a$ 
ELSE 

PRINT b$ 








? 1ength 1ength と width を 入力 の 例 


? dog dog と window を 入力 の 例 


【 プ ログ ラム 例 】 
a$ = ” Microsoft “ 間 b$, c$C 各 文字 列 を 代入 





b$ = "Quick “ 
c$ = ” Basic " 
PRINT a$+b$+ cS$ &$+b$+c$ を 表示 

PRINT RTRIMS(a$) + RTRIMS(b$) + RTRIMS(cS$) 右側 の 空白 を 除去 し て a$+b$+o$ を 表示 
END 











【 結 果 】 


Microsoft Quick Basic 
Microsoft Quick BasiC 


【 プ ログ ラム 例 】 

a* = ダル 人 トモ ドー a$ 文 字 列 を 代入 

b$ = "ザッ 19"ーーーーーー 一 b$ に 文字 列 を 代 人 

MID$(a$, 8, 5) = b$ a$ の 8 番目 か ら 5 文字 を b$ で 入れ か え 
PRINT a$ a$ の 表示 

END 


【 結 果 】 


み ャ が ド リーw 選 邊 











【 プ ログ ラム 例 】 


a$ = "Microsoft Quick Basic" 文字 列 を a$C 代 入 

INPUT b$ 文字 列 を b$ に 入力 

IF INSTR(1, a$, b$) <> 0 THEN a$ の 中 (C b$ が あれ ば a$ を 表示 . な けれ ば b$ を 表示 
PRINT a$ 

ELSE 
PRINT b$ 

END IF 

END 
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(1531 ) 


? Basic Basio を 入力 の 例 
Microsofk Quick Basic 


? basic basio を 入力 の 例 
basic 


【 プ ログ ラム 例 】 


a$ = "Microsoft Quick Basic 
PRINT UCASES(a$) 
END 


文字 列 を a$c 代 入 
a$ を 大 文字 に し て 表示 








【 結 果 】 


MICROSOFT QUICK BASIC 


(132)【 プ ログ ラム 例 】 


(135) 


(154) 


a$ = STRING$(10, "#) 一 一 "#" を 10 個 つない だ 文字 列 を &$ 代 人 
PRINT a$ a$ の 表示 
END 





【 結 果 】 


せ せ # せ せ せ すす せ せ せ 


【 プ ログ ラム 例 】 


a$ = STRINGS(20, "Microsoft") "M" を 20 個 つ な い だ 文 字 列 を 8$ に 代入 
PRINT a$ a$ の 表示 
END 








【 結 果 】 


MMMMMMMMMMMMMMMMMMMM 


【 プ ログ ラム 例 】 
DIM aS$(5), s$(5) ーーーーー ーー 社名 が a$, 初任 給 に あう * の 文字 列 が s$(C 入 る 


FORi=1T05 デー タ を 読ん で 社名 を a$, 初任 給 に あう * の 文字 列 を s$ 代 人 
READ a$⑪), x 
SS(i) = STRINGS。"*) 

NEXT i 














b$ ="+" + STRING$S(9, "-") b$( に "+ ォ ーーーー” を 代入 
LOCATE 3, 20: PRINT "5y* / リョ ニッキ 9( マ 7r ツ ) " 標題 
FORi=1105 社名 と + と 初任 給 に あう +* を 表示 
LOCATE 3+ 2 * ii 5: PRINT a$(G) 
LOCATE 39+2*i 叫 16: PRINT "m 
LOCATE 3+2*i 17: PRINT s$(⑪) 
NEXT i 
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FORi=1TO3 軸 の 表示 
LOCATE 15, 16 + (i - 1) * 10: PRINT b$ 

NEXT i 

LOCATE 15, 16+ 介 -1) *10: PRINT "+" 

FOR i = 0 TO 30 STEP 10 初任 給 額 を 表示 
LOCATE 16, 15+ ji: PRINT i | 

NEXT i 

END 


DATA 連 =ySS, 15, = ルカ, 19, ト 9SS, 22 
DATA y? ツ ョ 9 が,12. ダグ 侯 , 10 


【 結 果 】 

5 シャ ノ シヨ ョ ニン キュ ウ ( マ ン エ ン ) 
ナカ ニシ SS 十 来 来 玉 来 玉 来 来 玉 氷 氷 玉 氷 来 ※ 
ニホン テッ コウ 十 玉 素 玉 玉 玉 来 来 来 来 来 来 来 玉 玉 来 来 玉 来 玉 
トウ キョ ウ SS 十 来 来 来 来 来 玉 来 来 来 来 来 来 来 来 来 来 氷 来 来 来 来 来 
シマ ショ ウシ ~ 十 米 玉 来 来 玉 玉 玉 玉 来 玉 玉 玉 


ホン タ ~ インサツ 十 来 玉 来 来 来 来 来 来 来 玉 


(135)【 プ ログ ラム 例 】 


a$ = "Microsoft^ 文字 列 を a&$C 代 和信 
b = LEN(a$) b 文字 数 を 代入 


FORi=110b 1 文字 ずつ 後に 2 つの 空 折 を つけ て 表示 
PRINT MID$(a$, i, 1) + SPACES(2): 


NEXT i 
PRINT 
END 











【 結 果 】 


M 1 @ T @ 宮 上 ま を 


(186)【 プ ログ ラム 例 】 














2$ = "USA" 文字 列 を a$ に 代入 
b$ = SPACE$(3) 一 一 ーーーーーーー 5 空白 の 文字 列 を b$c 代 入 
FOR i = 1 10 77 5 行 1 列 か ら 77 列 まで 1 列 ど と に USA を 表示 し , それ を 消去 する 
LOCATE 5, i: PRINT a$ 
FOR j= 1 TO 500: NEXT ji 
LOCATE 5, i: PRINT b$ 
NEXT i 
END 
【 結 果 】 
USA (08A が 左 か ら 右 へ 動き ます ) 
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17 章 漢字 


LEFT$, RTGHT$, KMTD$, KMTD$=, KLREN、 KTINSTR, KEXT$、 JTS 
CHR$, KTN$ 





【 例 題 123】 漢字 の 表示 
"クィ ッ ク ベ ー シ ッ ク を 学び まし ょ う 。 "を 表示 する プロ グラ ム を つく れ . 








【 解 説 】 〇 党 字 を 表示 し ます . 
① 次 の 形 で 漢字 を 表示 し ます . 
PRINT "クィ ッ ク ベ ー シ ッ ク を 学び まし ょ う 。”" 
と れ は 次 の よう に し て ゃ 同じ で す . 
&$=" ク イィ ッ ク ベ ー シ ッ ク を 学び まし ょ う 。”" 
ERTNT a$ 
③⑬ 漢字 は 漢字 フロ ント エン ド プ ロ セ ッ サ を 使い ます . 本 例 は "ATOEK6” を 使用 し て いま す . フロ ント 
エン ド プ ロ セ ッ サ の 組込み は 準備 編 の と お り で す . また , 漢字 変換 に つい て は "ATOK6” を 使用 し て 
いる ワー プロ ソフ ト の 説明 書 に よっ て くだ さい . と と で は 次 の 点 に つい て の み ふ れ て お きま す . 
③ と キー を お し ます . 漢字 変換 モー ド と な り ま す . キー を お す て と と で 次 の 
5 つの モー ド が 選べ ます . 


連 ロ ー マ 字 漢字 ロー マ 字 で 入力 し て 漢字 変換 し ます 

連 カ ナ 漢 字 カナ て で 入力 し て 漢字 変換 し ます 

半角 英 数 カナ 半角 の 英 , 数 、 カナ が その まま 入り ます 
コー ド JIS 漢字 JIS コー ド で 漢字 を 入力 し ます 
記号 記号 で 入力 し ます 


④ いずれ ゃ 終了 は [CTRL] +[XFER) で す . 
⑤ 本 例 に つい て の キー 操作 を 示し ます . 

PRTNT” の 後 [CNTR] + [XFER〕] を お し ます . キー を 4 回 お し て , 記号 モー ド と し ます . 
キー を お し て , ” ク "を 含む 行 を 表示 させ ます . " ク ”" が 反転 し て いま す . し ます . 同様 
の 手順 で 矢印 キー と J キ ー で "イッ クベ ー シ ッ ク "まで 入力 し ます . キー を お し て 空白 を 
つく り 回 | し ます . キー で 連 ロ ー マ 字 漢字 モー ド と し , WI(GJ と し ます . キー を お 
し し ます . "を "が 表示 され ます . [MI [AJ 【N] 国 回 回 MM 回 回 ( と キー を お し た 後 , 
KFER] を お し ます . "学び まし ょ う "と な り ま す . で 確定 し ます . キー を 5 回 お し て 
コー ド JIS モー ド と し て , 2125 JJ] し ます (21238 は "。 "の JTS コー ド で す ). 


| 
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最後 に [CTRL]+ で 漢字 変換 モー ド は 終了 で す . 
? を 記入 し て , PRINT 命令 が で きま し た 
【 プ ログ ラム 例 】 
PRINT "クィ ッ ク ベ ー シ ッ ク を 学び まし ょ う 。“ 
END 


【 結 果 】 
ウィ ツタ ペー ジッタ みみ を 学 光 ま U よ ょ よう 。 





【 例 題 124】 漢字 文字 列 の 左側 の 文字 の と り 出 し 
"クイ ッ ク ベ ー シ ッ ク を 学び まし ょ う 。 "の 中 か ら " ク イッ ク ” を と り 出 し て 表示 する プロ 
グラ ム を つく れ 





【 解 説 】 〇 沿 字 文字 列 の 中 か ら 左側 の 文字 列 を と り 出し ます . 
① a$ を "クイ ッ ク ベ ー シ ッ ク を 学び まし ょ う 。 "と し ます . 
③) LEFT$ は a$ の 中 か ら 左 側 の 指定 し た 文字 列 を と り 出 し ます . 
③ 漢字 の 場合 は 1 文字 が 2 バイ ト で す . し た が っ て , 次 の よう K 8 の 指定 で 4 文字 を と り 出し ます . 

クイ ッ ク ベ ー シ ッ ク を 学び まし ょ う 。 
L__ 
LEFT$(a$,8 ) 
左側 4 文字 
【 プ ログ ラム 例 】 
a$ = "クィ ッ ク ベ ー シ ッ ク を 学び まし ょ う 。“ 
b$ = LEFT$(a$, 8) 


PRINT b$ 
END 


【 結 果 】 
クィ ッ ク 





【 例 題 125】 漢字 文字 列 の 右側 の 文字 列 
ッ ク イ ッ ク ベ ペー シック を 学び まし ょ う 。 "の 中 か ら 右 側 ? 文字 を と り 出 し て 表示 する プロ 


グラ ム を つく れ . 











【 解 説 】 ⑨ 漢字 文字 列 の 石 側 7 文字 を と り 出 し ます . 
① a$ を "クイ ッ ク ベ ー シ ッ ク を 学び まし ょ う 。 "と し ます -. 
⑨ 次 の 形 で 石 側 7 文字 を と り 出し ます . 

RIGHT$  (a$,14) 

右側 の 六 字 列 | | 








7 文字 . 漢字 で は 1 文字 を 2 と 数 える 
元 の 文字 列 
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【 プ ログ ラム 例 】 
a$ = "クィ ッ ク ベ ー シ ッ ク を 学び まし ょ う 。" 
b$ = RIGHTS(a$, 14) 


PRINT b$ 
END 


【 結 果 】 
学び まし ょ う 。 





【 例 題 126】 漢字 文字 列 の 中 間 の 文字 列 
"クイ ッ ク ベ ー シ ッ ク を 学び まし ょ う 。 "の 中 か らら 5 文字 目 か ら 5 文字 を と り 出 し て 表示 
する プロ グラ ム を つく れ . 








【 解 説 】 〇 漢 地 文字 列 の 中 間 の 文字 列 を と り 出し ます . 
① &$ と "クイ ッ ク ベ ー シ ッ ク を 学び まし ょ う 。 "と し ます . 
③ 次 の 形 で 中 間 の 文字 列 を と り 出し ます . 

KMITD$  (a$,5,5) 





中 間 の 文字 列 | | レー =* 文字 KMID$ で は 漢字 1 文字 を 1 と 数 える 
元 の 文字 列 5 文字 目 か ら 
と の 例 で は "ベー シッ ク ”" と な り ま す . 
【 プ ログ ラム 例 】 


8$ = “クィック ベー シッ ク を 学び まし ょ う 。 " 
b$ = KMID$(a$ 5, 5) 


PRINT b$ 
END 

【 結 果 】 
20 デ ウ 六 み 





【 例 題 127】 文字 列 の 長 さ 


"クイ ッ ク ベ ー シ ッ ク を 学び まし ょ う 。 "を 1 文字 ずつ と り 出 し て 表示 する プロ グラ ム を 
が 香 。 











【 解 説 】 G 文字 列 の 長 さ を 求め ます . 

③④ a$c" ア クイ ッ ク ベ ー シ ッ ク を 学び まし ょ う 。 "を 代入 し ます 

⑧ EKLBN(a$) は 文字 列 a$ の 長 さ , 文字 数 を 求め ます . KLEN は 漢字 を 1 文字 を 1 と 数 えま す - 
【 プ ログ ラム 例 】 


a8 = プク ィ ッ クベ ー シ ッ ク を 学び まし ょ う 。 " 
b = KLEN(a$) 
FORi=1T0Ob 
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PRINT KMIDS(a$, i, 1): 
NEXT i 
PRINT 
END 


【 結 果 】 
クィ ッ ク バ ベーシック を 学び まし ょ う 。 





【 例題 128】 文字 列 の 入れ か え 
a&$ を "平成 元 年 12 月 81 日 「 と し , b$c"11 月 15 日 "を 代入 し , "12 月 81 日 を "11 月 


15 日 "で 入れ か えて 表示 する プロ グラ ム を つく れ -. 











【 解 説 】 @ 〇 漢字 文字 列 の 1 部 の 人 れ か え を し ます 
① a* を "平成 元 年 12 月 31 日 "と し ます . b$ を "11 月 15 日 "と し ます . 
③ "12 月 31 日 "の 部 分 を "11 月 15 日 "と 入れ か えま す . 

平成 元 年 12 月 21 日 


生 
I 


11 月 15 日 


KMTID$(a$,5,6 )=b$ 
a$ の 5 番目 か ら 6 文字 を D$ で 入れ か え 


【 プ ログ ラム 例 】 


a$ = “平成 元 年 1 2 月 3 1 日 " 
DS = “11 月 15 日 " 
KMIDS(a$, 5. 6) = b$ 

PRINT a$ 

END 


【 結 果 】 
平成 元 年 1 1 月 15 日 





【 例 題 129】 検 索 
a$ を "クイ ッ ク ベ ー シ ッ ク を 学び まし ょ う 。 ", b$ を ” 学 びましょう”", c$ を "クイ ッ ク 


C”" として, a$ の 最初 か ら b$、c$ が ある か どう か を 検索 する プロ グラ ム を つく れ . 











【 解 説 】 〇 漢字 文字 列 の 検索 を し ます - 

① a$ を "クイ ッ ク ベ ー シ ッ ク を 学び まし ょ う 。”, D$ を "学び まし ょ う ", co$ を "クイ ッ ク OO" 
と し ます . 

②③ KTINSTR(1,a$,b$) は a$ の 中 (C b$ が ある か どう か を 検索 し ます . と の と き 1 番 日 か ら さ が し 
ます . KTINSTR は 漢字 1 文字 を 1 と 数 えて 検索 し ます . 見 つか っ た 場合 , それ が 何 番目 か ら あ る か > 
その 番号 を 与え を ます . "クイ ッ ク ベ ー シ ッ ク を 学び まし ょ う 。 ? の 中 に "学び まし ょ う " は 15 番 
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目 か ら あ り ま す の で INSTR(1,a$,b$) は 18 で す . 見 つか ら な いと き は 0 で す . 
【 プロ グラ ム 例 】 


a$ = "クィック ベー シッ ク を 学び まし ょ う 。" 
DS = "学び まし ょ う " 

c$ = "クィック C" 

PRINT KINSTR(1, a$, b$) 

PRINT KINSTR(1, a$, c$) 

END 


【 結 果 】 


13 
0 


mm 





【 例題 130】 全角 文字 と 半角 文字 
"4 は アル ファ ベッ ト の 最初 の 文字 で す " の 半角 文字 と 全角 文字 を わけ て 表示 する プロ グラ ム 
を つく れ . た だ し , "4”" は 半角 文字 , 他 は 全角 文字 と し ます . 











【 解 説 】 ⑥ 半角 文字 と 全角 文字 を と り 出し ます . 
(① KREXT$(a$,0) は a$ の 中 の 半角 文字 を と り 出 し ます . と の 例 で は "A" の み で す . 
③⑬) KREXT$(a$,1 ) は a$ の 中 の 全角 文字 を と り 出 し ます . 

【 プ ログ ラム 例 】 


a$ = "A は アル ファ ベッ ト の 最初 の 文字 で す " 
b$ = KEXT$S(a$, 0) 

c$ = KEXT$(a$, 1) 

PRINT b$ 

PRINT c$ 

END 


【 結 果 】 


A 
は アル ファ ベッ ト の 最初 の 文字 で す 





【 例 題 131】 漢字 の JIS コー ド 
"世界 "の ”" 世 ? の JTS コー ド を 表示 する プロ グラ ム を つく れ . 











【 解 説 】 〇 漢字 の JIS コー ド を 求め ます . 


① JTS$(a$) で は 文字 列 a$ の 先頭 文字 が 2 バイ ト 文 字 の と き そ の 文字 の 16 進 の JTS コー ド を 4 
バイ ト の アス キー 文字 列 で 求め ます . 1 バイ ト 文 字 の と き は その 文字 の 10 進 の JTS コー ド を 5 バ 


イト 以下 の アス キー 文字 列 で 求め ます . 
⑧ a$ を "世界 "と する と " 世 " の JTS コー ド で 4024 で す . 
⑬ a&$ を "A" と する と 65, a$ を "a" と する と 97 で す . 
25 ダ を 


【 プ ログ ラム 例 】 


3$ = "世界 " 
PRINT JIS$(a$) 
END 


【 結 果 】 
4024 





【 例題 132】 漢字 の CHR$ 
CHR$ を 使っ て "世界 "と 表示 する プロ グラ ム を つく れ 











避 


【 解 説 】 〇 シフ ト JLTS コー ド で 漢字 を 表示 し ます . 

① CHR$(3175) で " 世 7, CHR$(1953) で " 界 " を 持ち ます . 

⑨ 0 か ら 255 の と き は 1 バイ ト 文字 256 か ら 11.535 の と き は シフ ト JIS 対応 する 2 バイ ト 
文字 を 与え ます . 

【 プ ログ ラム 例 】 


PRINT CHR$(3173) : 
PRINT CHR$(1953) 
END 


【 結 果 】 
世界 





【 例 題 133】 漢字 文字 列 の 句点 コー ド 
"ABCD 大 文字 abed 小文字 "の 各 文字 の 句点 コー ド を 表示 する プロ グラ ム を つく れ 











【 解 説 】 〇 句点 コー ド を 求め ます . 
① ETN$(o$) は 文字 c$ が 2 バイ ト 文字 の と き そ の 文字 に 対応 する 句点 コー ド を 持ち ます . 1 バイ 
ト 文字 の と き は アス キー コー ド を 持ち ます . "A" は 65, "B" は 66, ? 大 ” は 5471 な ど で す . 
【 プ ログ ラム 例 】 
as = "ABCD 大 文字 abcd 小 文字 " 
b = KLEN(a$) 
FOR i = 1 TO b 
で $ = KMID$S(a$S,。 i, 1) 
PRINT KTNS(cS): "の 5 
NEXT 1i 


PRINT 
END 


【 結 果 】 


65 66 67 68 3471 4224 2790 97 98 99 100 3014 14224 2790 
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【 例 題 134】 漢字 の 入力 
漢字 文字 列 を 入力 し て , 表示 する プロ グラ ム を つく れ . 








【 解 説 】 @ 漢字 の 入力 を し ます . 

① 漢字 の 入力 も , 普通 の 文字 列 の 入力 と 同様 c INPUT *$ で 行い ます . 

② プロ グラ ム が 実行 され る と ? を 表示 し , 人 力 を 要求 し ます の で , [CTRL] キー と [XFERR] キー を お 
し て 漢字 入力 モー ド と し て , 漢字 を 入力 し ます . 

③ 入力 が 決ま っ た ら [CTRL] キー と KFER) キー を 再度 お し て , 漢字 入力 モー ド を 解除 し ます . 

【 プ ログ ラム 例 】 


INPUT x$ 
PRINT x$ 
END 


【 結 果 】 




















(演習 問題 ] 


(137) "平成 元 年 12 月 31 日 "と 表示 する プロ グラ ム を つく れ . 

(128) 平成 元 年 12 月 31 日 "の うち 元 年 を と り 出 し て 表示 する プロ グラ ム を つく れ . 

(189) "クイ ッ ク ベ ペー シッ ク を 学び まし ょ う 。 "を a$,。 "始め ます 。 「 "を b$ と し て . a$ の 
最後 の 7 文字 を b$ で 入れ か えて 表示 する プロ グラ ム を つく れ . 

(140) "た け や が や けた "を 後ろ か ら 1 文字 ずつ 表示 する プロ グラ ム を つく れ . 

(141)  『 平 成 元 年 12 月 81 日 "の 1 文字 ずつ の 句点 コー ド を 表示 する プロ グラ ム を つく れ . 

(142) "ABCD 大 文字 abcd 小文字 "の うち 半角 文字 と 全角 文字 を 各々 と り 出 し て 表示 する プロ グ 
ラ 導 を つく れ 。 

(143) 1666 か ら 2000 まで の CHR$ の 漢字 を 表示 する プロ グラ ム を つく れ . 

(144) 820 か ら 852 まで の CHR$ の 文字 を 表示 する プロ グラ ム を つく れ . 

(145) "クイ ッ ク ベ ー シ ッ ク "を a$ と し , a$ の JTS$ を 表示 する プロ グラ ム を つく れ . 

(146) a$ を "クイ ッ ク ベ ー シ ッ ク "と し て ,。 1 文字 お き に 表示 する プロ グラ ム を つく れ . 


[ 解 答 ] 


(13?)【 プ ログ ラム 例 】 


PRINT “平成 元 年 1 2 月 3 1 日 " 
END 
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(138 


(139) 


(140 


(141) 


【 結 果 】 
平成 元 年 1 2 月 3 1 日 


【 プ ログ ラム 例 】 


a$ = “平成 元 年 1 2 月 81 日 
bS = KMIDS(a$, 3. 2) 

PRINT b$ 

END 


【 結 果 】 
元 年 


【 プ ログ ラム 例 】 

a$5 = "クイ ッ ク ベ ベーシック を 学び まし ょ う 。" 
b$ = "始め ます 。 " 

KMIDS(a$, 13, 7) = b$ 

PRINT a$ 

END 


【 結 果 】 
クイ ッ ク ベ ベー シック を 始め ます 。 


YY 


【 プ ログ ラム 例 】 


a$ = "た け や が や けた " 

b = KLEN(a$) 

FOR i = b TO 1 STEP -1 
PRINT KMIDS(a$, i, 1): 

NEXT i 

PRINT 

END 


【 結 果 】 
た け や が や けた 


ュ ン 


【 プ ログ ラム 例 】 
a$ = "平成 元 年 1 2 月 3 1 日 " 
b = KLEN(8$) 
FORi=110b 
c$ = KMIDS(a$, ii 1) 
PRINT KTNS(c$9: 「 「: 
NEXT i 
PRINT 
END 


【 結 果 】 
4231 3214 2421 3915 0317 0318 2378 0319 0317 
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3892 


下 


CHRSG) 
PRINT aS: 


NEXT i 
END 


"ABCD 大 文字 abcd 小 文字 " 


b$ = KEXT$S(a$, 0) 
c$ = KEXTS(a$, 1) 


PRINT b$ 


果 】 


FORi = 1666 TO 2000 
a$ 


a$ 

PRINT c$ 

END 

【 結 

ABCDabcd 

大 文字 小文字 


プロ グラ ム 編 
(142)【 プ ログ ラム 例 】 


(142)【 プ ログ ラム 例 】 


II 


表 了 舞 幸 医 詳 宰 到 
皿 刷 恒 因 枢 代 葵 源 
に に さき 
理 側 民 外 経 臣 旦 尋 
東 | 覆 医 可 照 政 
所 杉 筐 度 幼 寂 坦 
地 夫 堅 認 田 藻 量 男 
利 穫 前 期 関 球 表 理 
を oO を: さい ] 
窒 償 台 実 撃 孔 回 時 
週 槍 尋 褒 出 誕 壁 諾 
避 国 中 彰 下 遼 親 
量 刺 標記 人 人 で 諾 
Ko 
一 輸 革 演 限 氏 抽 
思 悦 覆 器 求 蛋 遇 貴 
遇 向 内 印 挟 呈 虹 
党 皿 尽 朱 著 呈 蜜 際 
ド : ま きり TuE:、 す 4 
田 間 人 妃 各 時 宮 再 
世 店 選 早 長 彫 人 
准 咽 控 黄 区 還 氏 
反 嘆 路 玩 強引 夫 去 
EN キッ ニー ト - ご: 
民 坦 銘 ※ 摺 明 窟 
遇 唄 記 押 握 押 操 叱 許 
野 褒 換 恥 視 量 四 呈 妖 
障 般 選 鹿 除 咽 喘 堅 
醒 半 是 設 舞 因 語 浴 
掴 机 夫 対 拉 時 部 技 亜 
拘 連 志和 昧 理 装 8 細 
政 収 窒 借 N 較 聞 
剛 菩 国 早 ※ 書 路 団 弄 
否 困 叫 押 二 貴 森 民 捧 
賜 吾 玉 四 38 製 掛 香 臣 
民 胡 叶 時 本 問 拒 天 表 
尽 昌 上 揚 所 還 次 
理 皿 喘 封 時間 拓 弄 宗 
還 ペ 押 弄 税 把 普 明 
国 和 所 還 倒 左 環 忠 明 


] 


820 TO 852 
CHR$i) 


i 
a$ 


FOR i 


(144)【 プ ログ ラム 例 】 


YIH 思 思 も BbIb3RO 名 


25 ざ 


IMIK コ MIHOIPCTyY 


】 


末 】 
"クィ ッ ク ベ ベーシック " 


PRINT JIS$(a$) 


END 


果 】 


PRINT aS$: 


NEXT i 
END 


【 結 


ABBPTIEE 光 
a$ = 
【 結 


(145)【 プ ログ ラム 例 】 


17 章 漢 字 
uouCCTT く 5 


(146)【 プ ログ ラム 例 】 


8$ = "クィ ッ ク ベ ベーシック" 

b = KLEN(3$) 

FORi=1TObSTEP2 
PRINT KMIDS(a$, i, 1): 

NEXT i 

PRINT 

END 


【 結 果 】 


クッ ベン シク 
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つつ 


18 章 桁 ・ 行 の 指定 


L0CATE 





【 例題 135】 LOCATE で 表示 位置 を 指定 
1 行 1 桁 か ら "abo", 2 行 1 桁 か ら "def",5 行 10 桁 か ら "ghi”5 行 18 桁 か ら "jk1" 
を 表示 する プロ グラ ム を つく れ . 











【 解 説 】 〇 LOcATE で 表示 開始 位置 を 決め ます . 

① LO0CATE x。 ゞ に よっ て 表示 開始 位置 を 決め ます . x が 行 , ゞ が 桁 を 示し ます . 下図 の よう に 画面 
左上 を 1 行 1 杵 と し ます . BASTC で は 通常 , 左上 を 0 桁 0 行 と し , x を 桁 、 y を 行 で 表わし ます 
の で 注意 し て くだ さい . 

Quiock BASTC Nas BASTC 

) (1,2) (1.3)……… (QLOY 20)coacs 








(1.1) (0.0) 
(2,1) (0,1) 
(8。 7 (0,2) 








左上 を 1 行 1 桁 と する . 行 . 桁 の 順に 示す . 左上 を 0 桁 0 行 と する . 杵 。 行 の 順に 示す . 

⑮ 100CATB 1 1 で は 1 行 1 桁 に カー ソル を 移し ます . 続い て , PRINT "abo"c よ り , 1 行 1 
桁 か ら "abo” を 表示 し ます . 

⑧ 10CATB 2 1 で は 3 行 1 桁 に こ カ ー ソ ル を 移し ます . 続い て 、 PRINT "aef" で , 2 行 1 桁 み 
ら ”"def” を 表示 し ます . 

④ 10CATE、 10 で は 行 を 変更 せ ず 10 桁 へ カー ソル を 移し ます . すなわち 項 ⑬③ の PRINT "def" で 
改行 され て いま すか ら , 実際 は 3 行 目 , 10 桁 C に カー ソル が きま す . そ と から"ghi "を 表示 し ます . 

⑤⑮ LO0CATE 5 で は 5 行 目 の 桁 は 変更 し な い 位 置 ヘ カー ソル を 移し ます . 実際 は 5 行 目 , 10 桁 目 か 
ら "ghi”"j を 表示 し て いま す の で カー ソル は 5 行 目 18 桁 目 に あり ます . し た が っ て , 桁 は 同じ で 
すか らち 5 行 目 の 15 桁 目 に カー ソル を 移し ます . そ と か ら PRTNT "3k1 "で 表示 を し ます . 

【 プ ログ ラム 例 】 


LOCATE 1, 1 
PRINT "abc" 
LOCATE 2, 1 
PRINT "def* 
LOCATE , 10 
PRINT "ghi":ーー 


1 行 1 桁 か ら abe を 表示 








る 行 1 桁 か ら def を 表示 











3 行 10 桁 か ら ghi を 表示 





18 章 桁 ・ 行 の 指定 


ノノ ラバ ろ る 8 くく E555 テ テー 


LOCATE 5 5 行 18 桁 か ら jk1 を 表示 
PRINT ロー 
END 
【 結 果 】 
abc 
def 
ghi 
JK1 





【 例 題 136】 サイ ンカ ー ブ を 描く 
0" を 使っ て サイ ンカ ー ブ を か く プ ログ ラム を つく れ . 








【 解 説 】 〇 LO0CATE を 使っ て サイ ンカ ー ブ を 描き ます . 
① サイ ンカ ー ブ は 0 度 か ら 360 度 ま で の SIN の 値 を プロ ッ ト し た も の で す . 


サイ ンカ ー ブ SIN(90') 


SIN(180*) +1 
/ 9 
srN り SIN(360") 「」 
SIN(270) SIN の 最大 値 は 1 最小 値 は ー1 
0* 180*" 360" 


②③ キャ ラク タ ”0” を LOCATE を 使っ て 表示 し ます . 次 の よう に 考え ます . 


[ 行 位置 の 決め 方 ] 


ピー ク の 行 位置 を 2 行 と する 中 心 を 12 行 , SIN の 最大 値 1 の と きる 行 目 
中 心 の 行 位置 を 12 行 と する SIN の 最小 値 -1 の と き 22 行 目 と する . 
し た が っ て , 行 位置 は 12-108IN(0-360") と な り ま す . 


0 560" は 適当 な 間隔 と し ます . 桁 位置 の 決定 の と と ろ で 説明 し ます . 
ヽ ポ トム の 行 位置 を 22 行 と する 


[ 桁 位置 の 決め 方 ] 
0“ の と き の 桁 位置 を 4 桁 . 90? の と き の 桁 位置 を 22 桁 
軸 ay 180* の 桁 位置 を 40 桁 、270* の 桁 位置 を 58 桁 
ペア " 860* の 桁 位置 を 76 杵 と し ます - 
W 表示 は 0"。 5 10"。 15"。 …355“。 860* の 場合 の 桁 位置 の と き と し ます . 
270* し た が っ て , 4 桁 目 , 5 桁 目 , 6 桁 目 , …76 桁 目 に 表示 され ます . 


③ し た が っ て FOR 3=0 TO 360 STEP 5 の くり 返し で , i 度 の と き の 行 位置 と 桁 位置 を 求 
め る と 次 の よう に な り ま す . 
12-10*SIN(1/180*3.14159) 。  …… 行 位置 


( ぼ +r20)/5。 0 0 {0 桁 位置 


④ し た が っ て , LOCATE 1, (i+20)/5 に よっ て "0" を 表示 する 位置 を 決め ます - 
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【 プロ グラ ム 例 】 








FOR i = 0 TO 360 STEP 5 ーーーーーーーー 0- 360" ま で 5" ご と に くり 返し 
j=12 -10* SIN(i / 180 * 3.14159) 行 の 計算 
LOCATE j, (i + 20) / 5 一 } 行 (1i+20 )/5 桁 を 指定 
PRINT "0" 0 の 表示 

NEXT i 

END 

【 結 果 】 
ooooooo 
ooo O 
oo oo 
9 0O 
9o oo 
9 o 
9 o 
oo 0 
に ) o 
9 o 
0 Oo 内 
9 o 
に o 
0O oo 
9 o 
9 oO 
9o oo 
o o 
oo oo 
ooo ooo 
ooooooo 





【 例 題 137】 標題 を 表示 
結果 の 標題 を 左上 を 10 行 20 杵 と し て 表示 する プロ グラ ム を つく れ . 





【 解 説 】 〇 標題 を 指定 位置 へ 表示 し ます . 
① "*?" を 25 個 並べ た 文字 列 を a$, "*"1 つ を b$, 標題 の 文字 列 を c$ に 代入 し ます . 文字 列 は 全 
体 で 15 桁 で すか ら , 前 後 (< 3 桁 ず つ 空 哲 を つけ また その 前 後に "*” を 1 つ ず つつ け ま す . し た 


が っ て , 全体 は 28 桁 で すす. し た が っ て , 上 下 の 行 に 表示 する "*” の 文字 列 は 28 個 の "*”" を 持た せ 
ます : 


③⑬ 次 の よう K 10CATRE 文 で 位置 を 指定 し て 表示 し ます . 
10 行 20 桁 か ら 文 字 列 を 表示 


米 玉 米 米 玉 玉 素 玉 玉 玉 玉 玉 米 玉 玉 素 玉 玉 玉 来 来 球 














テキ ツキ べ ツ ウリ アゲ スイ イ * ネ 
米 米 米 | 水素 来 来 来 来 来 氷 氷 来 来 来 来 来 来 来 来 来 来 玉 
11 行 20 桁 か ら 表示 11 行 24 桁 か ら 文字 列 を 表示 11 行 42 桁 か ら 表示 
12 行 20 桁 か ら 文字 列 を 表示 
【 ブ プロ グラ ム 例 】 
READ a$, Db$, c$ 一 ーーーーーーーーーーーーー デー タ 文 の 文字 列 を 代入 
LOCATE 10, 20 | a$ の 表示 
PRINT a$ 
LOCATE 11, 20 b$ の 表示 
PRINT b$ 目 
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18 章 桁 ・ 行 の 指定 























LOCATE 11, 24 c$ の 表示 
PRINT c$ 

LOCATE 11, 42 b$ の 表示 
PRINT b$ 

LOCATE 12, 20 a$ の 表示 
PRINT a$ 因 | 

END 

DATA "キネ ネネ ネネ ネネ ネネ ポポ ネネ キネ ネネ ネネ 

DATA "* 


DATA "9 ぐり 977 2 イイ 


【 結 果 】 


玉 玉 来 来 玉 来 玉 玉 来 来 玉 水 玉 玉 玉 玉 玉 米 玉 玉 
素 ツキ ペ ~ ツ ウリ ア ケ ~ スイ イ *※ 
玉 玉 玉 来 素 玉 来 来 玉 玉 玉 玉 玉 玉 玉 涼 涼 涼 玉 玉 





【 例 題 138】 位置 指定 で 入力 
2 行 5 桁 目 か ら 文 字 を 入力 し , 4 行 5 桁 目 か ら 表示 する プロ グラ ム を つく れ . 











【 解 説 】 〇 LO0CATE は 入力 位置 の 指定 も でき ます . 
① LO0CATE 2、5 の 人 後 INPUT x$ と する と カー ソル を る 行 5 桁 へ 移動 し そ と から x$ の 入力 を 行 
いま す . た だ し , INPUT 文 の ? の 位置 が 5 桁 目 で す . 
01 





LO0CATE 2、5(c よ り INPUT 文 の ? は 2 行 5 桁 目 に 表示 され る 





【 プ ログ ラム 例 】 
LOCATE 2, 5 2 行 5 桁 か ら x$ の 入力 
INPUT x$ ー 
LOCATE 4, 5 4 行 5 桁 か ら 表 示 
PRINT ーー 
END 

【 結 果 】 
? 入力 待ち 画面 
? 123456 123456 を 入力 の 例 
123456 





【 例 題 139】 文字 の 移動 
A を 画面 左 か ら 右 へ 動か みす プ ログ ラム を つく れ . 























中 プロ グラ ム 編 








tt 
【 解 説 】 〇 文字 を 画面 左 か ら 右 へ 動か し ます . 
① 文字 の 移動 は 次 の よう に し ます . 





生計 次! 介 RRBeeeseiea A A が 左 か ら 右 へ 動く 
トブ 1L_1 4 同行 の 桁 を 1 か ら 80 まで に する と 1 桁 目 か 
A を 表示 ら 80 桁 目 ま で 動く . 


次 に スペ ー ス を 表示 





【 プ ログ ラム 例 】 
FORi=11080 1 を 1 か ら 80 まで , i は 桁 を 示す 
LOCATE 3, i 5 行 3 桁 C A を 表示 
PRINT “A" 
LOCATE 3, i 8 行 1 桁 に スペース を 表示 
PRINT 
NEXT i 
END 
【 結 果 】 
A 4 が 左 か ら 右 へ 動く 


(演習 問題 」 


(14?) ドド の デー タ を 1 行 目 一 9 行 目 の 5 桁 目 か ら 1 つ ず つ 表 示す る プロ グラ ム を つく れ . 
デー タ : PC-9801, PC-8801, PC-98D0 
TBM-XT, TBM-PS2, TBM- AT 
FM-townSs, Canon-AXi、 Panacom-M5520 
(148) A を 結果 の よう に 表 示す る プロ グラ ム を つく れ . これ は "4A" を 1 行 1 桁 2 行 2 桁 8 行 
ぅ 桁 , …15 行 15 桁 に 表示 し た も の で ある . 
(149) "0" を 使っ て コサイン カー ブ を 表示 する プロ グラ ム を つく れ . 














[ 解 答 」 
(147)【 プ ログ ラム 例 】 
FORi=1TO9 9 回 くり 返し 
READ a$ 文字 列 を 読む 
LOCATEi, 5 i 行 5 桁 か ら 表 示 
PRINT a$ 二 
NEXT i 


END 

DATA PC-9801, PC-8801, PC-98D0 

DATA IBM-XT, IBM-PS2, IBM-AT 

DATA FM-towns, Canon-AXi, Panacom-M530 


ーー ame ラー ニャ デニー 


【 結 果 】 
PC-9801 
PC-8801 
PC-98DO 
IBM-XT 
IBM-PS2 
IBM-AT 
FM-townSs 
Canon-AXi 
Panacom-M530 


(148)【 プ ログ ラム 例 】 


FORi=11TO15 
LOCATE i, 
PRINT "AT 

NEXT i 

END 


(149 


【 プ ログ ラム 例 】 
FORi=010360STEP5 


18 章 桁 ・ 行 の 指定 


ニニ ーッ ニャ マー ニーーー= ェ ニッ = ニャ エーーucmma 


i 行 3 桁 か ら "A" を 表示 A 


j= 12 - 10 * COS(i / 180 * 3.14159) 一 一 一 行 位置 を 求め る 


PRINT 0" 


LOCATE j, (⑪ + 20) / 丁目 目 詞 剤 上 


(i+20 )/5 桁 C o を 表示 





NEXT i 
END 


【 結 果 】 


0000 
00O 


OO 
0000000 


0OOO 
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19 章 タイ マー 割り 込み ・ キ ー 割 り 込み ・ 
サブ ルー チン へ 分 岐 


TITMRR 0N/0FF/STOP,、 ON TIMER GOSUB--RRTURN 
KEY( ) ON/0FT/STOP, ON KEY( )GOSUB--RETURN 





【 例 題 140】 タイ マー 割り 込み 
FOR 3=1 TO 30000:NEXT 1 を くり 返す 中 で , 1 秒 ご と Cc 割り 込み で サブ プロ グラ ム 
count へ 分 岐 し , カウ ンタ を 1 ずつ 増やし 表示 する プロ グラ ム を つく れ . 











【 解 説 】 〇 タイ マー 割り 込み を し ます . 
① 次 の 形 で くり 返し の 途中 で 1 秒 ご と に 割り 込み が か か り , サブ プロ グラ ム count へ 分 岐 し ます . 
TTMER ON 割り 込み を オン と する 


| 


ON TIMER(1 ) GOSUB oount 





1 秒 ご と に 割り 込み サブ プロ グラ ム count へ 分 岐 
FOR i=1 TO 30000:NEXT 
③ 割り 込み の 開始 は TIMER ON です . 割り 込み の 停止 は TLMER OFF、 割り 込み の 中 断 は TIMER 
STOP で す . 
⑬ サブ ルー チン へ の 分 岐 は GOSUB プロ グラ ム 名 で す . プロ グラ ム 名 は ラベ ル の よう に 使い ます . サ 
ブル ー チ ン の 終了 は RETURN で す . 
GOSUB count 
? 
COUunt ーーーーーー ト ーー 
4 


RETURN RETURN で GOSUB の 次 へ 戻る 
を | 





count の 名 前 の サブ ルー チン へ 分 岐 








(⑥ と の プロ グラ ム は ほとん ど が TOR ュ i=1 TO 30000:NEXT i の 処理 に 時 間 を 使い ます . その 
間 1 秒 ご と 割り 込み が 入り , サブ プロ グラ ム count へ 分 岐 し て , oc (C 1 を 加え 表示 し て いき ま 
す . と の プロ グラ ム の 処理 に 約 16 牧 か か る と と が わか り ま す . 





【 プ ログ ラム 例 】 
TIMER ON 割り 込み 開始 
ON TIMER(1) GOSUB count 一 一 1 秒 ご と に 割り 込み で サブ ププ ログラム count へ 分 岐 


266@ 


19 章 タイ マー 割り 込み ・ キ ー 割 り 込 み ・ サ ブル ー チ ン へ 分 岐 


mmm ニー テン ーー マーニ ーー ンコ ーー テー ニー ーー 











FOR i = 1 10 30000: NEXT i くり 返し 

PRINT 

END 

count: サブ プロ グラ ム 
e=e 幸 1 c に 1 を 加え て 表示 
PRINT c: 

RETURN 

【 結 果 】 


1 2 3 + 5 6 7 8 9 19 11 12 13 14 15 16 








【 例題 1411】 キー 割り 込み 

ファ ンク ショ ン キ ー1, 2, 3 が お され た ら , 割り 込み で "キー1 ガ オサレ マシ タ ", ” キ 
ー2 ガ オサレ マシ タ ”", "キー5 ガ オサレ マシ タ " と 表示 し て 終了 する プロ グラ ム を つく 
れ . た だ し , キー3 が お され た ら 表 示 の 後 終了 する も の と する 








【 解 説 】 ③ ファ ンク ショ ン キ ー に よる 割り 込み を し ます 

① ファ ンク ショ ン キ ー1~10 を 押す と と で 割り 込み を させ る と と が で きま す . 

②③ KEY(1) ON と ON KEY(1) GOSUB a に よっ て ファ ンク ショ ン キ ー1 が お され る と 割り 込 
み で サブ プロ グラ ム ぁ a へ 分 岐 し ます . 

⑧⑬ KEY(1) の 1 の 部 分 が 1 か ら 10 を 使い ファ ンク ショ ン キ ー1~-10 を 示し ます . 

④ KEY() OFE は 割り 込み の 禁止 、 KEY( ) STOP は 割り 込み を 中 断 し ます -. 

⑤⑮ KEY 割り 込み が ON の と き は ファ ンク ショ ン キ ーC 割 りあ て られ て いる ファ ンク ショ ン は 無効 で 
す . 


【 プ ログ ラム 例 】 


KEY(1) ON ファ ンク ショ ン キ ー1-5 の 割り 込み を オン 
KEY(2) ON 
KEY(3) ON 


ON KEY(1) GOSUB a ファ ンク ショ ン キ ー1-3 か ら お され る と 各々 
ON KEY(2) GOSUB b サブ プロ グラ ム a, b, c へ 分 岐 
ON KEY(3) GOSUB c 

WHILE 1 | 無限 ルー プ 








ご | 嫌 





WEND 
@ 
END 
a: 





サブ プロ グラ ム ぁ & 
PRINT " キ 1 が 村 MYy ダ 














RETURN _ 

b: サ プ プ ログ ラム b 
PRINT " キ 2 が ガッ ゲ 

RETURN 

C: サブ ププ ログ ラム ec 


PRINT "キキ 8 が 村 M? ツ が 
RETURN e 








キー 1 カカ ^ オサレ マシ タ 
キー2 カ ~ オ サレ マシ タ 


キー2 カカ ^ オ サレ マシ タ 
キー 1 カカ ~ オサレ マシ タ 
キー-3 カ ^ オサレ マシ タ 


ファ ンク グ クション キー 
1、 2、 2、 1、 3 が お され た 例 








【 例 題 142】 矢印 キー に よる 割り 込み 
矢 旧 キー が お され た ら そ の 方 向 の 矢印 を 表示 する プロ グラ ム を つく れ 








【 解 説 】 〇 矢印 キーc よ る 割り 込み を し ます . 
いり キー な 11, キー は 1 る キー は 15, キー は 14 C よ っ て 割り 込み が で きま す -. 
使い 方 は 【 例 題 141 】 と 同じ で す . 


【 プ ログ ラム 例 】 


KEY(11) ON キー11-14 の 割り 込み オン 
KEY(12) ON 11 は 軌 , 12 は 回 , 15 は 回 , 14 は 名 キー 


KEY(13) ON 
KEY(14) ON 


ON KEY(11) GOSUB aー- 
ON KEY(12) GOSUB b 
ON KEY(13) GOSUB < 
ON KEY(14) GOSUB d 一 


「 キー11 一 14 に よる 割り 込み に よっ て サブ プロ グラ ム a+d へ 分 岐 








無限 ルー プ 


サブ プロ グラ ム b 


サザ プロ グラ ム 9 








【 結 果 】 


サブ ププ ログ ラム 


, 曲 , を 入力 の 例 


WHILE 1 
2 =Z 
WEND 
@3 
END 
8: サブ プロ グラ ム ぁ a 
PRINT “1” 
RETURN e 一 一! 
b: 
PRINT "<" 
RETURN e 
CEnーーーーーーーーーーーーーーーーー ーー 
PRINT “一 " 
RETURN e 
d: 
PRINT " !" 
RETURN e 
t 9, 婦 , 
+ 
+ 





19 章 タイ マー 割り 込み ・ キ ー 割 り 込 み ・ サ ブル ー チ テン へ へ 分岐 





【 例 題 143】 ユー ザー 定義 キー 割り 込み 
( 還 キー, (名 キー, 〔GTRL キー と [Qi キー が お され た ら 各 々 ん %, end と 表示 する プロ グ 
芝 ム を つく れ . 











【 解 説 】 ⑨⑤ ユー ザー 定義 キー を 使っ て キー 割り 込み を し ます - 
① キー 番号 15 か ら 25 は ユー ザー が 定義 し て 使い ます . 
⑨③ 定義 の 仕方 は 次 の と お り で す -. 


KEY n , CHR$(&Hx)+CHR$(&Hy ) 
15 から 25 まで し 。、。 ドス キャ ンコ ー ド で , 
&HO00 は キー ボー ド フ ラッ グ な し が 00、1! が 01, 
&H0O1 は キー 軌 な が 02… 
&HO2 は CAPS) キー が 74 の よう に な っ て いま す . 


&H04 は キー 
&HO8 は キー 
&H10 は (CTRLJ キー 


⑬ た と えば , 次 の よう に な り ま す . 
KEY 15,CHR$(&HO0 )+CHR$(&H1D ) A キー を 15 割り あて 
KEY 16,CHR$(&HO1)+CHR$(&HO5 ) キー と 5] キー を 16 に 割り あて 
KEY 17,CHR$(&H10 )+CHR$(&H2B ) [CTRLJ キー と C キー を 17 割り あて 

【 プ ログ ラム 例 】 


KEY 15, CHRS(&HO) + CHRS(&H1D) 一 一 キー15~17 の 定義 
KEY 16, CHRS(&H1) + CHRS(&H5) 
KEY 17, CHRS(&H10) + CHR$(&H2B) 一 一 











KEY(15) ON キー15-17 の オン 
KEY(16) ON 

KEY(17) ON 

ON KEY(15) GOSUB a の 割り 込み 


ON KEY(16) GOSUB b 
ON KEY(17) GOSUB c 























WHILE 1 ーー 無限 ルー プ 
溢 全 田 

WEND ーー 

> 

END 

3: サブ ププ ログ ラム ぁみ 
PRINT "が | 

RETURN e 

b: サブ ププ ログ ラム b 
PRINT "が | 

RETURN e 





中 プロ グラ ム 編 











Oo 
と: サブ プロ グラ ム c 
PRINT "end" | 

RETURN e 

【 結 果 】 
A ⑳, る , 【GTRL) + | を 入力 の 例 
レ 2 
end 

【 例題 144 】 割り 込み を 使っ て プロ グラ ム の 中 断 を 防止 























STOPJ キー, [ESG) キー, (GTRCJ+(GJ キー を 各々 15, 16, 17 ic キー 定義 し て 。 1 か ら 
1000 まで を 表示 する プロ グラ ム の 中 で これ ら が お され て も プロ グラ ム が 中 断 し な い 
ム を つく れ . 


プロ グラ 








【 解 説 】 6 キー 割り 込み を 利用 し て プロ グラ ム の 中 断 を 防ぎ ます 


① STOP ) キー を プロ グラ ム 実 行 中 に お す と プロ グラ ム が 中 断 し ます . と れ を 防ぐ た め に は キー 割り 
込み を 利用 し て , STOP J キ ー が お され た ら 、 サブ プロ グラ ム へ 分 岐 し て , 単 (Cc RETURN すれ ば 


プロ グラ ム は 中 断 し ませ ん . 

② 同様 (ESG) キー, (GTRLJ キー+ [キー を 定 開 し て キー 割り 込み を 利用 し て プロ グラ ム の 中 断 
を 防ぎ ます 
【 プ ログ ラム 例 】 








KEY 15, CHRS(&HO) + CHRS(&H60) 一 一 -STOPJ キー を 15、 ESG) キー を 16、 
KEY 16, CHRS(&HO) + CHR$(&HO) 


KEY 17, CHR$(&H10) + CHRS(&H2B) 一 一 





KEY(15) ON 
KEY(16) ON 





KEY(17) ON 


キー+†@ キー を 17 で 定義 


キー15~17 の オン 


キー 割り 込み 





ON KEY(15) GOSUB a 

ON KEY(16) GOSUB b 

ON KEY(17) GOSUB c 

FORi = 1 TO 1000 
PRINT i: 














-STOP) キー, [GTRL) + で | キー を 途中 で お す ) 


サブ プロ グラ ム ac。 いずれ も 単 (C RETURN の み , 


「ー1~1000 の 表示 


プロ グラ ム の 中 断 を 防ぐ 

















NEXT i 
PRINT 
END 
3: 
RETURN 
b: 
RETURN 
C: 
RETURN 
【 結 果 】 前 半 省 略 (9 キー. 
8 919 920 921 922 923 924 925 926 
4 935 936 937 938 939 9』0 931 942 
0 951 952 953 954 955 956 957 958 
6 967 968 969 970 971 972 973 974 
2 983 984 985 986 987 988 989 990 
8 999 1000 


ラ Z ひ 


927 
943 
959 
975 
991 


928 
944 
960 
976 
992 


929 
945 
961 
972 
993 


930 
946 
962 
978 
993 


931 
9347 
963 
979 
995 


932 
948 
96+ 
980 
996 


933 
949 
965 
981 
997 


95 
96 


99 


KK 
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ーー ニーーーーーーーwーーー ーー 一 = 


ーー デ nsrrs デ ーーー。 ar ar いさ ーー キー 





[演習 問題 」 


(150) 10 秒 た っ た ら , "10 ビョウ ケイ カ " と 表示 し て 終わ る プロ グラ ム を つく れ . 
(151) Al. ) . ( キー が ぉ され た ら そ の 数 を 数 えて 表示 する プロ グラ ム を つく れ . た だ し 
どれ か が 5 回 と な っ た ら 表 示し て 終了 する も ゃ の と する . 


! 解 答 」 


(150)【 プ ログ ラム 例 】 


TIMER ON タイ マ 割 り 込 み 開 始 
ON TIMER(10) GOSUB count 10 秒 た っ た ら count へ 分 岐 


WHILE 1 較 細 プ 
2 = 
WEND 


@5 
END 
count: 


サブ プロ グラ ム count 
PRINT "10 ビ 訪 7 が 
RETURN e 


【 結 果 】 
10 ヒ ~ ョ ウ ケイ カ 














(151)【 プ ログ ラム 例 】 


KEY 15, CHR$(&HO) + CHRS(&HID) 一 一 一 一 ーー 。 B , @ キー を 定義 
KEY 16, CHR$S(&HO) + CHRS(&H2D) 
KEY 17, CHRS(&HO) + CHRS(&H2B) ニーーーーーー 
KEY(15) ON キー15-16 オン 


帳 








KEY(16) ON 
KEY(17) ON 
ON KEY(15) GOSUB a キー 割り 込み 





ON KEY(16) GOSUB b 
ON KEY(17) GOSUB c 
WHILE 1 無限 ルー プ 








間 み 
WEND 』 








@: 

PRINT "A="i ai "7“ 表示 
PRINT "B=「: "1 “ 
PRINT "Ci ci 7 
END 


3: サブ ププ ログ ラム @& 
a =a+ 1 A) の 回 数 の カウ ント 
IF a <= 4 THEN RETURN ELSE RETURN e 


ご 6 
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ーー 











b: サブ プロ グラ ム b 
b=b+1 2oy ゅ > ト 
IF b <= 4 THEN RETURN ELSE RETURN e 

C: サ プ プ ログ ラム oc 
C=c+1 | Someo ヵ ウン ト 
IF c <= 4 THEN RETURN FLSE RETURN e 

【 結 果 】 

A= 3 カイ (的 M 包 還 GO 加 到 到 の 例 ) 

B= 5 カイ 

C= 3 カイ 
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20 章 シー ケン シャ ルフ ァイル 


0PEN--FOR OUTPUT、 OPEN- FOR INPUT, OPEN FOR APPEND 
WRITE#、 INPUT#、 PRINT#、 CLOSE#、 EOTF 





【 例 題 115】 シー ケン シャ ルフ ァイル の 書き 込み 
下 の デ ー タ を シー ケン シャ ルフ ァイル meibo・.dat に か く プ ログ ラム を つく れ . 
デー タ : オオ ヤマ タロ ウ , 38, 1570、 ウ エダ ヨシ オ , 41, 1500 

クリ タ サ ブロ ウ , 25, 820. トク ガワ ョ ヨシオ, 52, 2300 

カワ カミ タロ ウ , 21, 420, アマ ダヨ シミ ツ , 27, 1210 

(名 前 , 年 齢 , 年 収 の 順 の デー タ と する ) 











【 解 説 】 〇 シー ケン シャ ルフ ァイル を つく り 書 き 込 み を し ます . 
① シー ケン シャ ルフ ァイル は テー プ と 同じ よう Cc 前 か ら 順 に デー タ を 書い て いき ます . 途中 か ら 書 く 
と と は で きま せん . 
⑬⑨ まず ファ イル を オー プン し ます . ファ イル の オー プン は 今後 使用 する ファ イル を 明確 に し , それ に 
番号 を 与え て , 今後 その 番号 で 識別 し て いき ます . シー ケン シャ ルフ ァイル の 書き 込み は 00TFUT 
を 指定 し ます . 
0 SN WOR 00TPUT 4 
ファ イル の ファ イル 名 書き 込み 用 オー プン 番号 
オー プン 
この 中 で ユー ザー が 変え られ る の は ファ イル 名 の meibo・dat の 部 分 と オー プン 番号 の 1 の み で 
す . 1 か ら 255 が 使え ます . あと は 書式 の と お り と し ます . 
③ 配列 a$ と x% に 読み 込ま れ た デー タ を 次 の 形 で ファ イル へ 書き 込み ます . 書き 込み は WRITE# を 
使い ます . ファ イル の 識別 を オー プン 番号 1 で 識別 し ます . 
WRITE #1 a$(1),x%(1,1) ,x%(1 る ) 


1 馬 二 1 1 


ファ イル へ 識別 名 前 年 齢 年 収 
の 書き 込み 番号 1 
④ 書き 込み が 終っ た ら オ ー プ ン 番 号 と 同じ 番号 を 指定 し て ファ イル を クロ ー ズ し ます - 
CLOSE #1 
ファ イル の 還 半量 
クロ ー ズ #1 を 省略 する と すべ て の ファ イル が クロ ー ズ され ます - 
CLOSE が な く て も END な ど に よっ て 自動 的 に クロ ー ズ され ます 


2Z き 


中 プロ グラ ム 編 





ーー 





Ps 


⑤ シー ケン シャ ルフ ァイル で は 本 例 の よう に , 文字 デー タ , 整数 型 デ ー タ , 整数 型 デ ゲー タ を 1 組 と 
し て , と の 順 で くり 返さ れ ま す . と の と き , 文字 デー タ の 長 さ が 同 じ で な く て も よい と と ろ に 大 き な 
特長 が あり ます . 

し た が っ て , と の ファ イル が 何 バ イト 使用 し て いる の か デー タ の 数 だ け で は わか り ま せん . 

⑯ FOR 00TEOT を 指定 し て ファ イル を オー プン する と , 同じ 名 前 の ファ イル が な けれ ば 作成 し . す 

で に ある と き は その デー タ を すべ て な くし て し まい ます か ら 注 意 し て くだ さい . 








【 プ ログ ラム 例 】 
DIM a$(6), x%(6, 2) 配列 の 宣言 
FORi=0T105 デー タ の 読み 込み 
READ aS⑪), x%Gi, 1), x%(i, 2) 
NEXT i ファ イル の オー プン 








OPEN “b:meibo.dat" FOR OUTPUT AS #l ファ イル へ ヘ へ デー タ の 書き 込み 
FORi=0T05 
WRITE 半 , a$G⑪), x%G, 1), x%(G, 2) 


NEXT i 
CLOSE #1 ファ イル の クロ ー ズ 
END 

DATA 材 ?2n9, 38, 1570, 9 エダ ヨシ れ 41, 1300 

DATA 列 多 7 札 , 25, 820, ト 2 が 737 れ 52, 2300 

DATA 7 が 2m9, 21, 420.7 ィ ダヨ ミツ , 37, 1210 








【 結 果 】 デー タ が ディ スク に か き 込 まれ ます . 
MS-DOS の type コマ ンド で ファ イル の 内 容 を みる と 次 の よう (に C な っ て いま す . 


type meibo.dat 

"オオ ヤマ タロ ウ " 38,1570 
誠に 当 導 の 4 8300 
リク リタ サフ ロウ" 。 25 ,820 
"トク カ ~ ワ ヨシ オ " 。 52 , 2300 
リカ ワカ ミタ ロウ "2 1 420 
UP ジコ ジミ 37。1210 





【 例 題 1466】 シー ケン シャ ルフ ァイル の 読み だ し 
【 例 題 145】 で 書き 込ん だ シー ケン シャ ルフ ァイル mei bo .dat の デー タ を 読み 出し て 表 
示す る プロ グラ ム を つく れ . 











【 解 説 】 〇 シー ケン シャ ルフ ァイル を 読み 出し ます . 
① シー ケン シャ ルフ ァイル は テー プ と 同様 に 前 か ら 順 に し か 読み 出せ ませ ん . 
⑨ シー ケン シャ ルフ ァイル の 読み 出し は , 書き 込み と 同様 に まず ファ イル を オー プン し ます .。 と の と 
き , INPUT を 指定 し ます 
OPEN "meibo.dat" FOR INPUT AS #2 





ファ イル の ファ イル 名 読み 出し の 指定 オー プン 番号 
オー プン 
③ 読み 出し は 次 の よう に し ます . 読み 出し は INPUT# を 使い ます . 
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隔て 


TNPUT #2。 a$, xx%, y% 
読み 出さ れ た 最初 の 文字 列 が &$C, 次 の 2 つの 整数 が x% と y% に 代入 され ます 
④ 読み 出し が すん だ ら , ファ イル を クロ ー ズ し ます . 





ーー 








CLOSE #2 
ク グロー ズ 識別 番号 
【 プ ログ ラム 例 】 
OPEN "b:meibo.dat" FOR INPUT AS #2 ファ イル の オー プン 
FORi=1106 デー タ の 読み 出し と 表示 


INPUT #2, a$, x% y% 
PRINT a$: x% y% 
NEXT i 
CLOSE #2 ファ イル の クロ ー ズ 

END 


【 結 果 】 
オオ ヤマ タロ ウ 38 1570 
ウェ タ ~ ヨ シオ 41 1300 
クリ タ サ フロ ウ 25 820 
トク カ ~ ワ ヨシ オ 52 2300 
カワ カミ タロ ウ 21 420 
アマ タダ” ヨシ ミツ 37 1210 











【 例題 147】 シー ケン シャ ルフ ァイル に デー タ を 追加 
【 例 題 145】 の ファ イル meibo・dat 追加 し て 下 の デ ー タ を 書き 込む プロ グラ ム を つく れ . 
デー タ : カド カワ ヒロ シ , 35, 2100、 オオ シタ ヤス オ , 45, 990 








【 解 説 】 ③ シー ケン シャ ルフ ァイル に デー タ を 追加 書き 込み し ます . 
① シー ケン シャ ルフ ァイル に デー タ を 追加 書き 込み する と き は , ファ イル を オー プン する と き に 
FOR APPEND を 使い ます . 


OPEN "meibo.dat" FOR APPEND AS #1 


| | | 


ファ イル の ファ イル 名 追加 書き 込み を 指定 オー プン 番号 
オー プン 
③ 書き 込み 、 クロ ー ズ は 書き 込み を TOR 0UTPUT 指定 で 行っ た の と 同じ で す . 
⑬ APPEND を 使っ て 追加 書き 込み を する と き は ファ イ ル 名 が 同じ も の が あれ ば , 追加 で 書き 込み , 
すなわち 前 の デー タ を と わ さ な いよ うに オー プン し ます . 同じ ファ イル 名 が な いと き は その 名 前 で 
ファ イル を つく り ま す . つま り OUTPUT を 使っ た と き と 同 じ し で す . し た が っ て , 誤っ て ファ イル を 
こわさ な いよ う (c OUTPUT より APPEND を 使っ た 方 が 無難 で す 








【 プ ログ ラム 例 】 
DIM a$(2), x%(2, 2) 配列 の 宣言 
FORi=0101 デー タ の 読み 込み 
READ a$G⑪), x%(Gi. 1), x%⑪, 2) | 
NEXT i 
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OPEN "b:meibo.dat" FOR APPEND AS #3 一 ファ イル の オー プン 











FOR i =0TO1 デー タ の 追加 書き 込み 
WRITE #3. 9⑪. %G。 1). 辻 2 の | 

NEXT i 

CLOSE #3 ファ イル の クロ ー ズ 

END 


DATA 軒 加 Lny, 35, 2100, 材 yt 43, 990 


【 結 果 】 デー タ が ディ スク に 書き 込ま れ ま す 
MS-DOS の type コマ ンド で ファ イル の 内 容 を 表示 する と 次 の よう に な り ま す . 


"オオ ヤマ タロ ウ " 38 ,1570 
"ウェ ター ヨシ オ " 41 1300 
リク リタ サブロウ" 25 。820 
リト ク カ ~ ワ ヨシ オォ" 52 , 2300 
"カワ カミ タロ ウ " 」 2 1 ,420 
リマ タ トヨ ジミ ウト 37 1210 
"カト ~ カ 27EH ジ "35 2100 
"オオ シタ ヤス オ " , 43 , 990 





【 例 題 118】 〇 シー ケン シャ ルフ ァイル の EOF を 使っ た 読み 出し 
【 例 題 145】 と 【 例 題 147】 を 実行 し た 後 の フ ァイル meibo.dat の デー タ を 読み 出し て 表 
示す る プロ グラ ム を つく れ . 





【 解 説 】 〇 シー ケン シャ ルフ ァイル の デー タ を EOP を 利用 し て 読み 出し ます - 

① - 般 に シー ケン シャ ルフ ァイル に どれ だ け デ ー タ が 入っ て いる か を お ほぼ えて いる と と は あり ませ ん . 
そ と で , ファ イル を 読む と き FOR っ NEXT 文 で 読も うと 思っ て も くり 返し の 数 が わか り ま せん . そ 
と で OF を 利用 し ます . 

② BOTF は ファ イル に デー タ が ある と 0 ( 偽 )、 な く な る と -1 ( 真 ) を 持ち ます . これ を 利用 し て 。 
ファ イル に デー タ が ある 間 読 み 出し ます . 


| 虐 別 番号 














D0 UNTIL EOF(1 ) オー プン 番号 1 の ファ イル の デー タ が な く な る と 
INPUT #1。a$,x%,。 テ % REOF(1) は ー1 と な る 
エ L00P 
【 プ ログ ラム 例 】 
OPEN “b:meibo.dat" FOR INPUT AS #l ン デ イル の キー ジジ ーー 
DO UNTIL EOF(1) デー タ の 読み 出し と 表示 
INPUT #1, a$, x% y% 
PRINT a$: x%: y% 
LOOP 
CLOSE #1 ファ イル の クロ ー ズ 
END 
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【 結 果 】 


オオ ヤマ タロ ウ 38 1570 
ウェ タ ~ ヨ シオ 41 1300 
クリ タ サ フロ ウ 25 820 
トク カ ~ ワ ヨ シオ 52 2300 
カワ カミ タロ ウ 21 420 

アア マタ” ヨッ ミツ 37 1210 
カト ~ カ ワ ヒ ロ シ 35 2100 
オオ シタ ヤス オ 43 990 





【 例 題 1419】 シー ケン シャ ルフ ァイル の デー タ の 変更 
【 例 題 148】 の ファ イル meibo.dat の 第 3 組 目 の デ ー タ を 下 の デ ー タ で 変更 する プロ グラ 
ム を つく れ . 

デー タタ ジマ コウ ジ , 55, 1920 











【 解 説 】 ③ シー ケン シャ ルフ ァイル の 1 部 の デー タ を 変更 し ます . 

① シー ケン シャ ルフ ァイル は 前 か ら 順 に 書き , 前 か ら 順 に 読み 出し ます か ら 途 中 で 読み 出し た り , 途 
中 で 書い た りす る と と は で きま せん で し た . Quiock BASTC で は seek を 使っ て で きる よう に な っ 
て いま す . と の 例 は TL 編 23 章 で 扱い ます . 本 例 は まず 従来 の BASIC と 同じ 方 法 に よっ て プロ グラ 
に ar 記 

全 デ ー タ を 【 例 題 148】 の 方 法 で 読み 出し 配列 へ 格納 し ます -. 

③ 次 に 5 番目 を 指定 し て 配列 デー タ を 入れ か えま す 

④ 全 デ ー タ を ファ イル へ 書き 込み ます . 

⑤ 読み 出す と き BOT( ) を 使う と 終り を 検出 で きま す が 1=i+1 に よっ て デー タ 数 を 求め て お きま す . 
次 に 書き 込む と き , i 個 分 を か け ば よい と と に な り ま す 


③ 





























【 プ ログ ラム 例 】 
DIM aa$(100), xx%(100, 2) 配列 の 宣言 
i = 0 デー タ 組 数 を 数 える カウ ンタ 
OPEN "b:meibo.dat" FOR INPUT AS #2 一 一 一 ファ イル の オー プン 
DO UNTIL EOF(2) デー タ の 読み 出し 配列 へ 代入 
1i=i+ 1 
INPUT #2, a$, x% y% 
aa$(i) = a$ 
xX%(i, 1) = xX% 
xx%(i, 2) = y% 
LOOP 
CLOSE #2 ファ イル の クロ ー ズ 
aa$(3) = "が マコ が “ 新しい デー タ を 代入 
xX%(3, 1) = 55 
xxX%(3, 2) = 1920 
OPEN "b:meibo.dat" FOR OUTPUT AS #5 ファ イル の オー プン 
FORj=1T0i デー タ の 書き 込み 
WRITE #5, aa$(⑪), xx%(j, 1), xx%(j, 2) | 
NEXT j 
CLOSE #5 ファ イル の クロ ー ズ 
END 


2ZZ 


中 プロ グラ ム 編 





ーーーーーーmーーーー ア ーー アー ツー 
【 結 果 】 (ファ イル の 内 容 ) 


オオ ヤマ タロ ウ 38 1570 
ウェ タ “ ヨ シオ 41 1300 
タ シ ~ マ コウ シ ^~ 55 1920 
トク カ が ~ ワ ヨシ オ 52 2300 
カワ カミ タロ ウ 21 420 

アマ タダ "ヨシ ミツ 37 1210 
カト “カワ ヒロ シ 35 2100 
オオ シタ ヤス オ 43 990 





【 例 題 150】 PRINT # を 使っ て ファ イル ヘ へ デー タ の 書き 込み 
【 例 題 145】 の デー タ を ファ イル meibo2.dat (c PRINT * 文 を 使っ て か く プ ログ ラム を 
つく れ . 











【 解 説 】 〇 PRINT # を 使っ て ファ イル ヘ へ デー タ を か きま す . 
① WRITE * の か わり KC PRINT # を 使っ て デー タ を ファ イル へ か きま す . 
③ PRTINT # を 使う と き は 文字 列 は "" で か と ん で 記入 し ます . "は CHR$(54 ) で すか ら , 文字 列 &$ 
を か く と き は 次 の よう に な り ま す 
PRTNT #1 ,CHR$( 584 )+a$+CHR$( 34 ) 
また は 
PRINT #1 ,CHR$(24 ) ja$jCHR$( 34 ) 
⑬ 書き 込ま れ た デー タ の 読み 出し は 普通 どおり で す . 
読み 出し プロ グラ ム の 例 と その 結果 の 例 は 次 の と お り で す . 
【 参 考 プ ログ ラム 例 】 











OPEN "meibo1.dat" FOR INPUT AS #2 ファ イル の オー プン 
FOR i = 1 TO 6 ファ イル の デー タ の 読み 出し 
INPUT #2, aS, X 和 を 。 ツア を と 表示 
PRINT a$: xx: y 冬 
NEXT i 
CLOSE #2 ファ イル の クロ ー ズ 
END 
【 結 果 】 
オオ ヤマ タロ ウ 38 1570 
ウェ タ ~ ヨ シオ 41 1300 
クリ タ サ フ ~ ロ ウ 25 820 
トク カ ^~ ワ ヨ シオ 52 2300 
カワ カミ タロ ウ 21 420 
アマ タ ~ ヨ シミ ツ 37 1210 
【 プ ログ ラム 例 】 
DIM x%(6, 2) 一 一 ーー 一 ーー 配列 の 宣言 
FORi=0105 配列 ヘ デ ー タ を 読み 込む 
READ a$⑪), x%G, 1), x%(G, 2) | 
NEXT i 
k$ = CHRS$(34) "を K$c 代 入 
OPEN “b:meibo2.dat" FOE OUTPUT AS #1 ーーーーーーー- ファ イル の オー プン 
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FORi=0105 PRINT# を 使っ て ファ イル へ デー タ を 
PRINT #1, kS + a$(i) + k$: x%(Gi。 1): x%(Gi, 2) 」 書き 込む 

NEXT i 

CLOSE #1 ファ イル の クロ ー ズ 

END 


DATA 材 tv2 ロ 9, 38,. 1570, 9 エダ ヨッ 41, 1300 
DATA 釣鐘 , 25, 820, ト 人 が 73y れ 52, 2300 
DATA 9 が 2n9, 21, 420.77 ダ ョ バリ , 37, 1210 


【 結 果 】 デー タ を ファ イル へ 書き 込み ます . 
演習 問題 」 


(152) 下 の デ ー タ を シー ケン シャ ルフ ァイル yakyu・dat に か く プ ログ ラム を つく れ . 




















名 前 | ホーム ラン | 打 率 
高田 四朗 15 | :325 
鈴木 太郎 | 25 | .298 
戸田 勝美 | ” 22 | .268 
徳田 義男 12 | .352 











(159) (152) の デー タ を 読み 出し て 表示 する プロ グラ ム を つく れ . 
(154) (152) の デー タ KC 追 加 し て 次 の デー タ を か く プ ログ ラム を つく れ . 





名 前 | *ー ム ラン 打 率 
佐々 木 歳 男 | 35 .275 
大 本 人 男 | 3 99 




















(155) (154) の デー タ を EOF を 使っ て 読み 出し て 表示 する プロ グラ ム を つく れ . 

(156) (154) の 2 番目 の デー タ を 高田 広 , 26. ・299 で 変更 する プロ グラ ム を つく れ . 

(157) 結果 の デー タ 文 の デー タ を シー ケン シャ ルフ ァイル "seisu・dat に か く プ ログ ラム を つく 
れ . た だ し , 文字 列 デ ー タ と し て か くも の と する - 

(158) (157) の ファ イル を 使っ て , 全体 の 和 と 平均 を 求め ある プロ グラ ム を つく れ - 

(159) (157) の ファ イル を 使っ て , 整数 x% を 入力 し , x% が いく つ あ る か を 表示 する プロ グラ ム 
を つく れ . 

(160) (157) の ファ イル を 使っ て , 整数 xx% を 入力 し , xx% よ り 大 きい デー タ を 表示 する プロ 
グラ ム を つく れ -. 
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[ 解 答 」 
(152)【 プ ログ ラム 例 】 
DIM a$(4), x%(4), y!(4) 配列 の 宣言 
FORi=0T03 デー タ の 読み 込み 
READ a$(G⑪), x%(G⑪), y!(i) | 
NEXT i 
OPEN "b:yakyu.dat" FOR OUTPUT AS #1 ファ イル の オー プン 
FORi=0103 デー タ の 書き 込み 
WRITE #, a$G), x%(G⑪), y!(1) | 
NEXT i 
CLOSE # ファ イル の クロ ー ズ 
END 


(153) 


(154) 


DATA 7 yn9, 15,. 325, 2 初 ロ 9, 25, . 298 
DATA ト ダ カミ 22,.268, ト 7 が ヨッ れ 12, . 352 


【 結 果 】 デー タ が ファ イル へ 書き 込ま れ ま す . 
(153) 読み出し 方 と 結果 が あり ます 


【 プ ログ ラム 例 】 


OPEN “b:yakyu.dat" FOR INPUT AS #2 ファ イル の オー プン 
FOR i =1T04 「 タ の 読み 出し と 表示 








INPUT #2, a$, x% y! 
PRINT a$: x%: y! 
NEXT i 
CLOSE #2 ファ イル の クロ ー ズ 

END 


【 結 果 】 


タカ タシロ ウ 15  .325 
スス "キタ ロウ 25  .298 
ト タ ダ " カ ツ ミ 22  .268 
トク タダ “ヨシ オ 12  .352 





























【 プ ログ ラム 例 】 

DIM a$(2), x%(2), y!(2) ーーーーーーーー 配列 の 宣言 

FOR i = 0 TO 1 デー タ の 読み 込み 
READ a$(⑪), x%(⑪), y!(1) 

NEXT i 

OPEN “b:yakyu.dat" FOR APPEND AS #3 ファ イル の オー プン 

FOR i = 0 TO 1 デー タ の 追加 書き 込み 
WRITE #3, a$G⑪), x%(G⑪), y!(⑪) 

NEXT i 

CLOSE #3 ファ イル の クロ ー ズ 

END 


DATA 族 ツ 4 35, . 275, 材 キ 7/ れ 31, . 333 
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【 結 果 】 デー タ が 追加 書き 込み され ます . 
(155) Cc 読み 出し 方 と 結果 が あり ます . 


(155)【 プ ログ ラム 例 】 


OPEN "b:yakyu.dat" FOR INPUT AS ファ イル の オー プン 

DO UNTIL EOF(①) デー タ の 読み 出し と 表示 
INPUT #1, a$, x% y! 
PRINT a$: x%: y! 








LOOP 
CLOSE #1 ファ イル の クロ ー ズ 


END 








【 結 果 】 


タカ タ ^ シ ロウ 15  .325 
スス ~ キ タロ ウ 25  .298 
ト タ ^ カ ツ ミ 22  .268 
トク タ ~ ヨ シオ 12  .352 
ササ キト シオ 35  .275 
オオ キノ フ ~ オ 31  .333 


(156)【 プ ログ ラム 例 】 




















DIM aa$(100), xx%(100), yy!(100) 一 一 一 配列 の 宣言 
1i =0 デー タ 組 数 を 求め る カウ ンタ 
OPEN "b:yakyu.dat" FOR INPUT AS #2 ファ イル の オー プン 
DO UNTIL EOF(2) デー タ を 読み 出し て 配列 へ 代入 
旬 選 章 半 
INPUT #2, a$, x% y! 
aa$(i) = a$ 
XX%(i) = xX% 
yY!G) = y! 
LOOP 
CLOSE #2 ファ イル の クロ ー ズ 
aa$(2) = " 多 ゲ Lny" 新しい デー タ を 代入 
xx%(2) = 26 
yy!(2) = .299 


OPEN "b:yakyu.dat" FOR OUTPUT AS # ファ イル の オー プン 


FOR j=1T0i デー タ の 書き 込み 
WRITE #1, aa$(⑬), xx%(3), yy!(3) 
NEXT j 


CLOSE #1 ファ イル の クロ ー ズ 
END 











【 結 果 】 (ファ イル の 内 容 ) 


タカ タ ~ シ ロウ 15  .325 
タカ タ ~ ヒ ロ シ 26  .299 
ト タ " カ ツ ミ 22  。268 
トク タ “ ヨ シオ 12  .352 
ササ キト シオ 35  .275 
オオ キノ フ " オ 31  .333 
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(157)【 プ ログ ラム 例 】 























DIM x$(50) デー タ を 入れ る 配列 の 宮 言 

FOR i = 0 TO 49 デー タ を 配列 x$C 代 入 
READ x$(i) | 

NEXT i 

OPEN "b:seisu.dat" FOR OUTPUT AS 寺 ファ イル の オー プン 

FOR i = 0 TO49 デー タ を ファ イル に か く 
WRITE 寺 , x$( ふ ) 」 

NEXT i 

CLOSE # ファ イル の クロ ー ズ 

END 


DATA 38, 25, 62, 47,15, 35, 24, 62, 95, 10 
DATA 85, 21, 48, 32, 61, 12, 40, 88, 24, 12 
DATA 15, 23, 45, 71, 55, 69, 21, 11, 45, 12 
DATA 21, 42, 12, 44, 15, 35, 40, 52, 11, 14 
DATA 86, 41, 25, 45, 65, 77, 48, 53, 51, 55 


【 結 果 】 


A>type seisu.dat MS-DO0S の TYPE 命令 で ファ イル seisu.dat の 内 容 を 表示 
"38" 
"257 
62" 

リ 47 リ 
n15" 

り "35" 
"2 4" 
627 
95" 

リ 10" 
以下 省略 


(158)【 プ ログ ラム 例 】 





OPEN "b:seisu.dat" FOR INPUT AS 尋 一 一 一 ファ イル の オー プン 
tt% = 0 和 を 求め る 変数 も も % 
FOR i = 0 TO 49 ァイル の デー タ を 読み 数 値 化 し て 和 を 求め る 





INPUT #1, x$ 

tt% = tt% + VAL(x$) 
NEXT i 
CLOSE #1 ファ イル の クロ ー ズ 
hi = tt%/ 50 平均 を hi 求める 
PRINT "9= ": tt% 合 果 の 表示 
PRINT "A 作 ツェ": hi 加計 ] 5 
END 


【 結 果 】 


ワ = 2035 
へ イキ ン = 40.7 
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20 章 シー ケン シャ ルフ ァイル 


5 ミラ 人 テテ テ ooo 


(159)【 プ ログ ラム 例 】 


OPEN "b:seisu.dat" FOR INPUT AS #1-ーー 一 ファ イル の オー プン 


tt% = 0 


カウ ンタ を 0 と する 








INPUT x% 


x% の 入力 
% と 同じ 値 の と き tt%(C 1 を 加え る 





FORi=0 1049 
INPUT #, x$ 


IF x% = VAL(x$) THEN tt% = tt%+ 1 


NEXT i 





CLOSE 社 

PRINT x%: tt 
END 

【 結 果 】 


12 +# コ 


(160)【 プ ログ ラム 例 】 





結果 の 表示 


OPEN "b:seisu.dat" FOR INPUT AS ーーーーーー フ ァイル の オー プン 





INPUT x% 


ェ % の 入力 


FORi=0 10O49 x% を と える デー タ を 表示 
INPUT #1, x$ 


IF x% く VAL(x$) THEN PRINT x$: | 





NEXT i 
CLOSE 
PRINT 
END 


【 結 果 】 


? 50 


50 を 入力 の 例 


62 62 95 85 61 88 71 55 69 52 86 65 77 53 31 35 


? 80 
95 85 88 86 


80 を 入力 の 例 


上 l プロ グラ ム 編 


21 章 ラン ダム ファ イル (1) 


OPENFOR RANDOM, FTELD, LSET、 RSET、 MKT$, MKS$, MKLS$、 MKD$, 
CVT, CVS。 CVL,、 CVD, PEUT#、 GET#, CLOSE# 





【 例題 151】 ラン ダム ファ イル 
【 例 題 145】 の デー タ を ラン ダム ファ イル に か く プ ログ ラム を つく れ . 











【 解 説 】 〇 ラン ダム ファ イル に デー タ を 書き 込み ます . 
① ラン ダム ファ イル は 書き 込み 。 読み 出し , 追加 の 区 分 は な くす べ て FOR RANDOM で オー プン し 
ます . 


OPRN "meibo5.dat" FOR RANDOM AS #1 


| 


ファ イル の ファ イル 名 ラン ダム ファ イル オー プン 番号 
オー プン の 指定 


⑨ ラン ダム ファ イル へ の 書き 込み は Tie1d 文 を 使っ て フィ ー ル ド を 指定 し バッ ファ に デー タ を か い 
て か ら , ディ スク へ 書き 込み ます . 1 バッ ファ は 256 バイ ト な の で ., 複数 組 の デー タ を 1 バッ ファ 
に つめ て か く よ う に し ます . と の 方 法 は ブロ ッ キ ング に よる 書き 込み と いい ます . 


FOR i=0 TO 5 
TFTELD #1,14*i AS dd$,10 AS aa$,2 as bb$,2 as oo$ 





フィ ー ル ド の 分 割 . ③ で 説明 
LSET aa$=a$(1 ) a$(1i) を aa$C 代 入 
LSET bb$=MKT$(x%( 1 ,0) ) x%(1,0 ) ,。 x%(i,1 ) を bb$,coc$ 人 代入 
LSET AA 1 ) ) 前 計 








整数 を 文字 化す る . 長 整 数 は MKL$, 単 精度 実数 は 
NEXT MKS$, 倍 精度 実数 は MKD$ を 使う . 
PUT#1 ,1 第 1 レコ ー ド と し て ディ スク へ 書き 込み 





左 づ め に セッ ト , 右 づ め の 時 は RSRT 


⑧ フィ ー ル ド の 分 割 は 次 の よう に な り ま す . 
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21 章 ラン ダム ファ イル (1) 


ノラ バラ 8 ラス 8 く KEKEE ミ cv 



































ーーaa - ー_ bb$cc$ 
=10 バ イト ン ァ テッ >22(0.1) I ュ =0 の と き aa$ は 0 の た め aa$, bb$, co$ を 書く 
サト タミー 2(0.07 。 bbsecs 
ーー ーー ル U ュ =1 の と き aa$ は 14 の た め 最初 の 14 バイ ト は 何 も 書 か れず 前 
前 の デー タカ の こる (1、 9 %%Q1) の デー タ が の と る . 次 の 14 バイ ト (C a$(1)、x%(1.0), x% 
2 (1,1) が 書き 込ま れる . 
ーー5 デ ー タ 組 一  __aa$_ bb$cc$ 
LL_ 還 中 1=5 の と き aa$ は 70 バイ ト と な り , 最初 の 70 バイ ト に は 何 も 
14 バ イト *5 三 70 バ イト 1 た の 書か れず 前 の デー タ が の と る . 71 バイ ト 目 か ら aa$(a$(5) )、 
計 - 人 の bb$(x%(5,0 ) )、 cc$(x%(5,1 ) ) が 書か れる . 
14*6 一 84 バ イト か か れる 256 一 84 
三 172 バ イト 
まだ 172 バ イト 
の こっ て いる 


④ ブロ ッ キ ング を 使わ な いと , FIELD #1、 10 AS aa$, 2 AS bb$, 2 AS oc$ と な り , 1 組 
の デー タ を aa$, bb$, ccob に セッ ト し て PUT #1、 1 から PUT #1、6 ま で 6 レコ ー ド に 分 け 
て 格納 し ます . 256 バイ ト の 中 に わずか 14 バイ ト し か 使わ な い 無 駄 と な り ま す . 

7 
FOR i=0 TO 5 
FIELD 10 AS aa$,2 AS bb$,2 AS oo$ 
LSET aa$=a$(1 ) 
LSET bb$=MKT$(x%(1,0) ) 
LSRT oc$=MKT$(x%(i。1 ) ) 
PUT *#1,+1 
NEXT i 
6 


⑤ なお, 2 AS bb$, bb$=MKI$(x%(1,0) ) の よう に 整数 は MKT$ を 使っ て 文字 変数 に 代入 し ま 
す . その 場合 の 必要 バイ ト 数 は 2 で す . 単 精度 実数 の 場合 は 4 AS bb$, bb$=MKS$(x!(3i。 
0 ) ) の よう KC MKS$ を 使っ て 文字 変数 に 代入 し ます . 必要 バイ ト 数 は 4 で す . 

長 整数 の 場合 は MKL$ を 使い ます . 必要 バイ ト 数 は 4 で す 

倍 精度 実数 の 場合 は MKD$ を 使い ます . 必要 バイ ト 数 は 8 で す 














【 プ ログ ラム 例 】 
DIM a$(18), X%(18, 2) A$ は 名 前 , x% は 年 齢 と 年 収 の 入る 配列 
FORi= 0 TO 17 デー タ の 配列 へ の 読み 込み 
IF i <= 5 THEN 
READ a$G⑪), X%%G, 0), X%(Gi, 1) 
ELSE ュ i が 6 以上 は a$""。 
a$(i) ="“ x% は 0 と な る 
X%%Gi, 0) = 0 
X%(Gi, 1) = 0 
END IF 
NEXT i - 
OPEN "b:meibo3.dat" FOR RANDOM AS 紅 LEN = 256 一 ーーーーーー フ テイ ル の オー プン 
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上 プロ グラ ム 編 


人 


FORi=0 TO 17 ファ イル へ 書き 込み 


FIELD 半 , 14* i AS dd$ 10 AS aa$, 2 AS bb$, 2 AS cc$ 
LSET aa$ = a$( ふ ) 
LSET bb$ = MKIS(%G, 0)) 
LSET cc$ = MKIS%G, 1)) 
NEXT i 
PUT #, 1 
CLOSE #1 ファ イル の クロ ー ズ 
END 
DATA 材 ヤ vn, 38,1570, 9 エダ ヨッ れ 41, 1300 
DATA 2 分 7 ロ 9, 25, 820, ト 2 が 93y れ 52, 2300 
DATA 加 が nm9, 21.420.77 ダ コメリ, 37, 1210 














【 例 題 182】 ラン ダム ファ イル の 読み 出し 
【 例 題 151 】 の ファ イル の デー タ を 読み 出し 表示 する プロ グラ ム を つく れ . 











【 解 説 】 〇 ラン ダム ファ イル の デー タ を 読み 出し ます . 

① ラン ダム ファ イル の 読み 出し は まず 書き 込み と 同じ 方 法 で ファ イル を オー プン し ます . 

②③ 次 に 書き 込み と 同じ 方 法 で FIELD を 割り あて ます -. 

③ GRT # を 使っ て ディ スク か ら デ ー タ を 読み 出し ます . 

BT #1. 1 に よっ て レコ ー ド 1 を 読み 出し ます . FTELD が 【 例 題 151】 と 同じ と する と i=0 

の と き 最 初 の 1 組 の デー タ が aa$, bb$, cc$c 読 み 出 され ます . 1=1 の と き 信 最初 の 14 バイ ト 
が ダミ ー で 次 の 14 バイ ト す な わ ち 2 組 目 の デ ー タ が aa$, bb$, cc$c 読 み 出 され ます -. 

④ 整数 化 は CVI を 使い ます . 単 精度 実数 の 場合 は CVS を 使い ます . 長 整 数 の 場合 は CVL, 倍 精 度 
実数 の 場合 は CVD を 使い ます . 


1 組 目 の デー タ . 2 組 目 の デー タ . .6 組 目 の デ ー タ 


し に ITTF ITLI 


cETi. lu lee 


bb$SceS GET#1.1[| aa$ || | 















ミー0 の た め 最 初 の bb$ccs* 
1 組 の デー タ が 読み 出 最初 の 14 パ イト が 
され る ダミ ー の た め 次 の 14 了 
バイ ト が 読み GET*i1 コ ーー TI 
14*5=70 バイ ト が ダミ ー 
の た め 6 番目 の デー タ 組 
が 読み 込ま れる 
【 プ ログ ラム 例 】 
DIM a$(18), x%(18, 2) 配列 $ は 名 前 , x% は 年 齢 と 年 収 が 入る 





OPEN “b:meibo3.dat" FOR RANDOM AS #1 LEN = 256 一 ファ イル の オー プン 
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21 章 ラン ダム ファ イル (1) 








FORi=0105 読み 出し 
FIELD #, 14* iAS dd$, 10 AS aa$, 2 AS bb$, 2 AS cc$ 
GET #1, 1 
a$(i) = aa$ 
x%(i, 0) = CVI(bDb$) 
x%(i, 1) = CVI(cc$) 














NEXT i 
CLOSE # ファ イル の クロ ー ズ 
FORi=0105 表示 
PRINT a$G): x%(G, 0): x%(Gi, 1) 
NEXT i 
END 
【 結 果 】 
オオ ヤマ タロ ウ 38 1570 
ウェ タ ~ ヨシ オ 41 1300 


クリ タリ フ ~ ロウ 25 820 
トク カ ~ ワ ヨ シオ 52 2300 
カワ カミ タロ ウ 21 420 
アマ タ ~ ヨン ミツ 37 1210 





【 例題 1583】 ラン ダム ファ イル ヘ へ デー タ の 追加 
【 例 題 151 】 の ファ イル に 下 の デ ー タ を 追加 する プロ グラ ム を つく れ . 

















名 前 年 齢 年 収 
川口 等 | 26 550 
太田 浩一 51 1820 
岸田 公 吉 33 710 
和田 吉男 38 830 





























【 解 説 】 〇 ラン ダム ファ イル へ ヘ へ デ ー タ を 追加 

① 【 例 題 151】 の ラン ダム ファ イル は 1 組 の デー タ が 文字 列 10 文字 整数 型 , 整数 型 で 合計 14 
バイ ト を 使用 し ます . し た が っ て , 1 バッ ファ 256 ぎ 14=18 に より 18 デー タ 組 が 1 バッ ファ に 人 入 
り ます : 

③ 【 例 題 151】 で は 6 デー タ 組 の み 人 入っ て いま す . し た が っ て 。 今回 の 4 デー タ 組 を その 後 ヒ 追加 
し ます -.【 例 題 151】 の 6 組 と 今回 の 4 組 の デー タ を か き , 後 の 8 組 は スペ ー ス の 文字 列 と 数 値 0 
を 記入 し て お きま す . 

③ 1 度 フ ァイル meibo2.dat の デー タ を 読み 出し , 配列 に 格納 し ます . その 後に C 4 デー タ 組 を つ 
け 加 えま す . 

④ 合計 10 組 を バッ ファ に か き な お し ます . 後 の 8 組 は スペ ー ス と 0 を か き , バッ ファ 内 容 18 組 
の デー タ を ディ スク へ 格納 し ます - 
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ーーー ョ ベー ョ ョ ョ ッ ポッ ョ デ そ ンコ 六 cm ピー ン で ぴ ッ c。 て ツー て ツー ツー 


84 バ イト 256-84 バイ ト 


ディ スク 6 組 の デー タ sao/ 
PR 


! 
配列 A4$(0)~A$(5) 





















































x%(0,0)~x%(0,5) 
x%(0,1)~x%( 0,1 ) 
を 読み 出し 
配列 A$(6)~A$(9) 
x%(6,0)~x%( 9.0 ) 
x%( 6 ,1 )~x%( 9,1 ) 
追加 余り ト 
バッ フ ア お よび | 元 の 6 組 の デー タ | 追加 4 組 の データ | 10 細 の タミー / | 
ディ スク ] 
(10 ス ペー ス と 0,0 を 1 組 の デー タ と する ) 
【 プ ログ ラム 例 】 
DIM a$(18), x%(18, 2) 配列 a$ は 名 前 , x% は 年 齢 と 年 収 が 入る 
OPEN “b:meibo3.dat" FOR RANDOM AS #1 LEN = 256 一 ファ イル の オー プン 
FOR i =0 T017 0~17 組 の デー タ の 配列 へ の 読み 
FIELD #1, 14 * ji AS dd⑬, 10 AS aa$, 2 AS bb$, 2 AS cc$ 出し 
GET #1, 1 
a$(i) = aa$ 
IF a$G⑪) = " "THEN EXIT FOR 
X%(i, 0) = CVI(bb$) 
X%i, 1) = CVI(cc$) 
NEXT i 
1 = ュ イ デー タ 組 の 追加 
FORi=j10j+3 
READ a$G), x%(Gi, 0), x%(Gi, 1) ] 
NEXT i 
FORi=010j+3 追加 デー タ 組 を ディ スケ ッ ト へ 
FIELD #1, 14 * i AS dd$. 10 AS aa$, 2 AS bb$, 2 AS cc$ 書き 込む 
LSET aa$ = a$(i) 
LSET bb$ = MKIS(x%Gi, 0)) 
LSET cc$ = MKI$(x%(i, 1)) | 
NEXT i 
PUT 寺 , 1 ファ イル の クロ ー ズ 
CLOSE #1 
END 


DATA 7 夏 ト y, 26, 550, 材 外 91 51, 1820 
DATA ヤグ ]9 季 , 33, 710, 977 ヨッ れ 38. 830 





【 例 題 154】 ラン ダム ファ イル の 読み 出し 
【 例 題 153】 の ファ イル meibo5.dat を 読み 出し て 表示 する プロ グラ ム を つく れ . 











【 解 説 】 〇 ラン ダム ファ イル の 読み 出し 
① りー て 18 組 の デー タ を 読み 出し 配列 へ 代入 し ます . その 中 で デー タ の 入っ て いな いと と ろ は 名 前 は 
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21 章 ラン ダム ファ イル (1) 


2 有 ぺ ^ メ ZI ュ ェ ウ 





ーー 


10 文字 の 空白 , 年 齢 と 年 収 は 0 で すか ら , それ を みつ けれ ば ど と まで デー タ が ある か わか り ま す . 
FOR i=0 TO 17 
FTELD 14*i AS aa$, 10 AS aa$, 2 AS bb$。 2 AS oo$ 
































GET *1, 1 ーー 第 1 レコ ー ド を よみ 出す 
a$(1)=aa$ ーー aa$ に 名 前 が 読み 出さ れ そ れ を a$(i) に 代 人 
TF a$(i)=" "THEN EXTT FOR -_a$(i) が 空白 の と き ル ー プ の 外 へ 
x%(1,0 )=CVI( bb$ ) oe き 年 齢 を x% (0), 
x%( 1,1)=CVI (oc$) 年 収 を *%(i,1) へ 代入 
NEXT 3 
デー タ の 数 は i 個 
【 プ ログ ラム 例 】 
DIM a$(18), x%(18, 2) 名 前 の 入る a$, 年 齢 。 年 収 が x% に 入る 
OPEN "b:meibo3.dat"FOR RANDOM AS #1 LEN = 256 ファ イル の オー プン 
FOR i=0 10 17 デー タ 組 が な く な る まで 名 前 を a$(i), 
FIELD #1. 14* iAS dd$, 10 AS aa$, 2 AS bb$, 2 AS cc$ | 年 齢 を x%(i,0), 年 収 を x%(i,1) に 
GET 1 代入 
a$(i) = aa$ 
IF aSGi) = “ "THEN EXIT FOR 
x%(i, 0) = CVI(bD$) 
x%(i, 1) = CVI(cc$) 
NEXT i 
遇 入 :W 
CLOSE #1 
FOR i =010j-1 デー タ 組 の 表示 
PRINT a$G): x%(i, 0): x%Gi, 1) | 
NEXT i 
END 
【 結 果 】 
オオ ヤマ タロ ウ 38 1570 
ウェ タ ~ ヨ シオ 41 1300 


クリ タ サ フロ ウ 25 820 
トク カ ~ ワ ヨ シオ 52 2300 
カワ カミ タロ ウ 21 420 
アマ タ ~ ヨシ ミツ 37 1210 
カリ クチ ヒト シ 26 550 


オオ タコ ウイ チ 51 1820 
キシ タ ~ コウ キチ 33 710 
ワタ ~ ヨシ オォ 38 830 





【 例題 155】 ラン ダム ファ イル の 訂正 
【 例 題 153】 の ファ イル の 2 番目 を 下 の デ ー タ で 書き か えて か ら 全 体 を 表示 する プロ グラ ム 
が "つく し 
名 前 : 羽田 修 
年 齢 : 26 歳 
年 収 : 690 万 円 
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【 解 説 】 〇 ラン ダム ファ イル の デー タ の 変更 
① ラン ダム ファ イル の デー タ の 変更 は 比較 的 簡単 で す . 
③ まず 2 番目 の デー タ 組 が 何 番目 の レコ ー ド に ある か を さがし ます . 次 に その レコ ー ド の 何 組 目 か 
を みつ け ま す . そし て , その レコ ー ド 番号 の みつ か っ た 順番 の デー タ 組 を 前 に ダミ ー を つけ て バッ 
ファ C か きこ と こみ, その レコ ー ド を ディ スク へ 格納 し ます -. 
本 例 で は 1 レコ ー ド (C 18 デー タ 組 が 入っ て いま すか ら 0~17 組 が 第 1 レコ ー ド , 18~ 55 組 が 
第 る レコー ド … と な り ま す . 2 組 目 は 第 1 レコ ー ド の 2 番目 と な り ま す . 





0~1 組 2 組 


バッ ファ 7 | 「 っ 第 1 レコ ー ド と し て 
ディ スク へ 格納 
さそ トー 


③ 一 般 化 し ます . 1 レコ ー ド は 18 デー タ 組 (0~17 組 ) が 入っ て いて , 第 1 レコ ー ド か ら 順 に レ 
コー ド 番 号 が ある と し ます . デー タ 組 は 0 番目 か ら 始 まり , レコ ー ド は 1 番目 か ら 始 まる と し ます 
と の 時 , x 番目 の デー タ 組 は y 十 1 レコ ー ド の z 番 目 と な り ま す . 

ェ * ェ 18= あ まり z 
例 22 番 目 は 23 二 18=1 あま りら 5 し た が っ て 2 レコード の 5 番目 
145 番 目 は 145+18=8 あま り 1 し た が っ て 9 レコ ー ド の 1 番目 


























【 ブ プロ グラ ム 例 】 
DIM a$(18), x%(18, 2) 0~17 組 の デー タ 組 の 入る 配列 
r = 2 \ 18 + 1 一 一 ーー 一 % 番目 の レコ ー ド 組 が 所 属す る レコ ー ド 数 
b = 2 MOD 18 2 番目 の レコ ー ド 組 が r レコ ー ド の b 番 目 に 属す る 
OPEN "b:meibo3.dat" FOR RANDOM AS #1 LEN = 256 ファ イル の オー プン 
FOR i = 0 10 17 ャ レコ ー ド の デー タ 組 を 読み 出し 





FIELD #1, 14 * i AS dd$, 10 AS aa$, 2 AS bb$, 2 AS cc$ 配列 に 代入 
GET #1, r 
a$(i) = aa$ 
X%(i, 0) 
X%(Gi, 1) 
NEXT i 
a$(b) = "AM 材 訂正 デー タ を 配列 に 代入 
x%(b, 0) = 26 | 
x%(b, 1) = 690 
FORi=0 TO17 ェ レ コー ド に 訂正 デー タ を 含む 
FIELD #1, 14 * i AS dd$, 10 AS aa$, 2 AS bb$, 2 AS cc$ 017 組 の デー タ を 書き 込む 
LSET aa$ = a$(i) 
LSET bb$ = MKIS(x%(i, 0)) 
LSET cc$ = MKIS(x%(Gi, 1)) 
NEXT i 
PUT 守 , r 
CLOSE # ファ イル の クロ ー ズ 
END 


CVI(bb$) 
CVI(cc$) 
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【 結 果 】 
ォ オ ャ マタ ロウ 。 38 1570 8 番目 を 変更 
ウェ タ ~ ヨ シオ 41 1300 


ハネ タ ~ オ サム 26 690 
トク カ ~ ワ ヨ シオ 52 2300 
カワ カミ タロ ウ 21 420 
ロジ ミウ 37 1210 
カワ リク ~ チ ヒト シ 26 550 


オオ タコ ウイ チ 51 1820 
キシ タ ~ コウ キチ 33 710 
ワタ ~ ヨシ オ 38 830 








【 例 題 1566】 デー タ の 削除 
【 例 題 155】 の デー タ を 使い , 太田 浩一 の デー タ を 削除 する プロ グラ ム を つく れ . 





【 解 説 】 〇 デー タ の 削除 を し ます . 
① デー タ の 削除 は ,. デー タ を 全く な くし て , 空 に な っ た 部 分 を つめ て し まう 方 法 や , 削除 する デー タ 
に 削除 を 示す マー ク を つけ る 方 法 な ど が あり ます . と と で は 比較 的 簡単 な 削除 マー ク を つけ る 方 法 を 
行い ます. と れ は 全く 削除 し て し まう 方 法 に 比べ , 必要 に よっ て 復活 で きる メリ ッ ト ゃ も あります. 
⑧⑯ デー タ を 読み 出し , 削除 する デー タ の 名 前 の 先頭 に "* ォ "マー ク を つけ ます . これ に よっ て , と の 
デー タ 組 は 削除 され る と と が わか り ま す . 
⑬ "*”" マ ー ク を つけ た デー タ を 含め て ファ イル を か きか えま す 


【 プ ログ ラム 例 】 
DIM a$(18), x%(18, 2) デー タ を 読み 出し て オオ タコ ウイ チ の と き * を 先頭 に つけ る 
OPEN "b:meibo3.dat" FOR RANDOM AS #1 LEN = 256 
FORi=0 TO17 
FIELD #1, 14 * iAS dd$, 10 AS aa$, 2 AS bb$, 2 AS cc$ 
GET 前 , 1 
a$(i) = aa$ 
IF aSG) = “ ” THEN EXIT FOR 
IF a$(Gi) = “ 材 負 9 人 7 "THEN aSG) = "* 材 多 9 全 「『 
x%(Gi, 0) = CVI(bb$) 
X%(1, 1) = CVI(cc$) 
NEXT i 
00 La で 本 ら 1 ファ イル の か き な お し 


FIELD #1, 14 * i AS dd$, 10 AS aa$, 2 AS bb$, 2 AS cc$ 
LSET aa$ = a$(i) 

LSET bb$ = MKIS(x%(i, 0)) 

LSET cc$ = MKIS(x%(i, 1)) 


NEXT i 
PUT 寺 , 1 
CLOSE #1 
END 

【 結 果 】 (ファ イル の 内 容 ) 
オオ ヤマ タロ ウ 38 1570 
ウェ タ ~ ヨシ オ 31 1300 
ハネ タオ サム 26 690 
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上 | プロ グラ ム 編 


て ハー テッ ーー モン > ーー っ 





トク カ ~ ワ ヨ シオ 52 2300 

カワ カミ タロ ウ 21 343420 

アマ タダ” ヨシ ミウ 37 1210 全体 を 表示 する と オオ タコ ウイ チ は 先頭 に * が つい て いる 
カワ グチ ヒト シッ 26 550 

*※ オ オタ コウ イチ 51 1820 

ッ タ "コウ キチ 33 710 

ワタ ~ ヨ シオ 38 830 





【 例 題 157】 削除 し た デー タ を 除い て リス ト 
【 例 題 156 】 の デー タ の 一 覧 表 を 表示 する プロ グラ ム を つく れ . 











【 解 説 】 〇 削除 デー タ を 除い て 表示 し ます . 

① 削除 デー タ は 名 前 の 先頭 に ”*”" が つい て いま す の で , 名 前 の 先頭 を みて "*" で あれ ば 表示 し ませ 
ん . 

【 プ ログ ラム 例 】 


DIM a$(18), x%(18, 2) 
OPEN “bmeibo3.dat" FOR RANDOM AS #1 LEN = 256 














FOR i = 0 10 17 デー タ の 読み 出し 
FIELD #1, 14 * i AS dd$, 10 AS aa$, 2 AS bb$, 2 AS cc$ 
GET 守 , 1 
a$(i) = aa$ 
IF a$G) = “ ” THEN EXIT FOR 
xX%(i, 0) = CVI(bb$) 
X%(i, 1) = CVI(cc$) 
NEXT i 
j= ュ 
CLOSE #1 
FORi=010j-1 表示 , 名 前 の 先頭 が 


IF LEFTS(aSG), 1) の "* THEN PRINT aSG): x%G。 0): x%(⑪, 1) "*" の と き 非 表示 
NEXT i 





END 

【 結 果 】 
オオ ヤマ タロ ウ 38 1570 
ウェ タ ~ ヨシ オ 41 1300 
ハネ タオ サム 26 690 
トク カ ~ ワ ヨ シオ 52 2300 
カワ カミ タロ ウ 21 420 


アマ タ ~ ヨ シミ リツ 37 1210 
カワ ク ~ チ ヒト シ 26 550 
生み の コウ 33 710 
ワタ ~ ヨシ オ 38 830 





【 例 題 158】 削除 デー タ の 表示 
【 例 題 156 】 で 削除 し た デー タ の リス ト を 表示 する プロ グラ ム を つく れ . 











【 解 説 】 〇 削除 デー タ を 表示 し ます -. 
① 【 例 題 157】 の 逆 で , 名 前 の 先頭 に "*"”" が つい て いる も の を 表示 し ます - 
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【 プ ログ ラム 例 】 


DIM a$(18), x%(18, 2) 
OPEN "b:meibo3.dat" FOR RANDOM AS #1 LEN = 256 
FOR i = 0 T0 17 デー タ の よみ 出し 
FIELD #, 14 * i AS dd$, 10 AS aa$, 2 AS bb$, 2 AS cc$ 
GET #1, 1 
a$(i) = aa$ 
IF a$G⑪) = “ 
x%(i, 0) = CVI(bb$) 
x%(i, 1) = CVI(cc$) 
NEXT 1 一 ーーーーーー ーー ーー ーー ーー 
1 = i 
CLOSE #1 
FORi=010j-1 * の つい て いる も の 
IF LEFT$(a$G), 1) = "*” THEN PRINT a$G): x%(i, 0): x%(i, 1) | の み 表示 
NEXT i 
END 





” THEN EXIT FOR 











【 結 果 】 


※ オ オタ コウ イチ 51 1820 


[演習 問題 」 


(161) 次 の デー タ を ラン ダム ファ イル meibo4.dat に か く プ ログ ラム を つく れ . た だ し , 名 前 
は 16 文字 , 出身 地 と 所 属 は 10 文字 分 と る ゃ る の と し , 1 レコ ー ド K4 組 書き 込む の と する . 



































名 前 年 齢 | 品 身 | 和 属 | 年収 (万 円 ) 
| 間 隊 一 朗 33 北 海道 | 党 業 部 465 
字 田 宏一 36 鹿児島 県 | 総務 部 430 
中 田 浴 二 | 29 大 阪 府 | 業務 部 428 
海田 泰 二 | 43 山 口 県 | 質 易 部 580 
近藤 三郎 25 青 森 県 | 業務 部 998 
小田 憲男 40 語 山 県 | 経理 部 411 
山川 一 夫 38 東 京 都 | 営業 部 490 
河田 安 次 30 千葉 県 | 営業 部 450 























(162) (161) の デー タ を 読み 出し 表示 する プロ グラ ム を つく れ . 
(163) (161) の デー タ を 読み 出し , 40 歳 代 の 人 を 表示 する プロ グラ ム を つく れ . 
(164) (161) の デー タ に 次 の デー タ を 追加 し て か く プ ログ ラム を つく れ . 
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中 プロ グラ ム 編 
ーー 
































名 前 年 齢 出身 地 所 属 | 年 収 (円 ) 
江田 五郎 | 58 | 東京 都 | 営業 部 | 1250 
小山 吾朗 46 愛 知 県 | 企画 部 850 
井沢 三郎 50 高 知 県 | 営業 部 1000 
高田 広 53 福 岡 県 | 業務 部 1150 
大 崎 。 猛 45 北 海道 営業 部 920 























(165) (164) の デー タ を 表示 する プロ グラ ム を つく れ . 

(166) (164) の デー タ の うち 高田 広 の 出身 地 を 福岡 県 か ら 鹿児島 県 に 変更 する プロ グラ ム を つ 
くれ . 

(167) (164) の デー タ の うち 池田 宏一 の デー タ を 削除 する プロ グラ ム を つく れ . 





[ 解 答 」 
(161)【 プ ログ ラム 例 】 
DIM a$(16, 3), X%%(16, 2) デー タ の 読み 込み 
FORi=0TO7 
READ a$(Gi, 0), X%%(G⑪, 0), a$(i 1), a$(Gi, 2), X%%(Gi, 1) 
NEXT i 





OPEN "b:meibo4.dat" FOR RANDOM AS # 計 LEN = 180 
FORi=1102 
FORj=0103 
FIELD #1, 40* }】 AS ddd$, 16 AS aa$, 2 AS bb$, 10 AS cc$, 10 AS dd$, 2 AS ee$ 
k=-1)*4+j 
LSET aa$ = a$(k, 0) 
LSET bb$ = MKI$(X%(k, 0)) 
LSET cc$ = a$(k, 1) 
LSET dd$ = a$(k, 2) 
LSET ee$ = MKIS(X%(k, 1)) 
NEXT 
PUT 守 , i 
NEXT i 
CLOSE # 
END 
DATA ry ト 9 人 ロリ, 33, 科 カ トド -, エ 作 97「,465 
DATA 位 ゲ 9 化 , 36, 加 「 久 , 747「, 430 
DATA 連 グ 19 ゲ , 29, 材 協 7, ギ 947「, 428 
DATA 7 ゲタ 人 ゲ ,43. YY グ 了 ッ ボテ 7 , 580 
DATA ユル ト 997 , 25,7 村 リツ. ギ ョ 947「, 398 
DATA 7 40, ト ヤル ルツ, 7, 411 
DATA 加 が れ 38, ト キト , エ イド ョ 97「, 490 
DATA 加 ゲ ャ ヤ ゲ , 30, 私" エ 作 ョ 797", 450 








29 ダ タ 








(162)【 プ ログ ラム 例 】 
DIM a$(16, 3), x%(16, 2) 


OPEN “b:meibo4.dat" FOR RANDOM AS #1 LEN = 180 


eersYaeanー い ュー ニー 
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ファ イル か ら デ ー タ の 読み 出し 
FOR i =1TO2 1 = 
FORj=0TO3 
FIELD 40* jAS ddd$, 16 AS aa$, 2 AS bb$, 10 AS cc$, 10 AS dd$, 2 AS ee$ 
GET 前 , 
k=-1)*4+j] 
a$(k, 0) = aa$ 
x%(k, 0) = CVI(bb$) 
a$(k, 1) = cc$ 
a$(k, 2) = dd$ 
X%(k, 1) = CVI(ee$) 
NEXT j 
NEXT i 当 
CLOSE 家 
FOR i=0TO7 表示 
PRINT a$G, 0): x%(Gi, 0), a$i, 1): a$G, 2): x%(i, 1) 
NEXT i 
END 
【 結 果 】 
ェ ン ト ~ ウ イチ ロウ 33 ホッ カイ ト ~- エイ キ ~ ョ ウフ ~ 165 
イケ タ ~ コ ウイ チ 36 カコ ~ シ マサ ン ソウ ム フ ~ 430 
ナカ ウジ “ 29 オウ サカ フ キ ^~ ョ ウム ブフ ~ +28 
カイ タタ イシ ~ 43 マグ "チケ ジ シ ホ ~ ウェ キ フ ~ 580 
コン ト ~ ウ サフ トロ ウ 25 了 オ モリ サン キョ ウム フ ~ 398 
ォ オタ ~ ノ リオ 40 トヤマ ケン ケイ リフ ^ 411 
ヤマ カワ カス ~ オ 38 トウ キョ ウト ェ イキ ~ ョ ウフ ~ 490 
カワ タ ~ ヤ スシ ~ 30 チ ハ ト サン ェ イキ ~ ョ ウフ ~ 450 


(165)【 プ ログ ラム 例 】 
DIM a$(16, 3), x%(16, 2) 


出し 


OPEN "b:meibo4.dat" FORRANDOMAS# 穫 LEN = 180 デー タ の ファ イル か ら の 読み ! 
FORi=1TO2 


FORj=0103 


FIELD #1, 40 * j AS ddd$, 16 AS aa$, 2 AS bb$, 10 AS cc$, 10 AS dd$, 2 AS ee$ 








GET #, i 

k=-1)*4+j 

a$(k, 0) = aa$ 

x%(k, 0) = CVI(bb$) 

a$(k, 1) = cc$ 

a$(k, 2) = dd$ 

x%(k, 1) = CVI(ee$) 

NEXT 

NEXT i 
CLOSE 還 
FORi=0T07 40 歳 代 の 人 の 表示 





IF x%Gi, 0) く 50 AND x%(G⑪, 0) >= 40 THEN 
PRINT a$Gi, 0): x%G, 0), a$G, 1): aS(G, 2): x%G, 1) 


END IF 





NEXT i 
END 





上 l プロ グラ ム 編 


【 結 果 】 
カイ タタ イシ 43 ャ マク ~ チ サン ホ ~ ウ ェ キ フ ~ 580 
ォ タ トノ リオ 0 トヤマ ケン ケイ リフ ~ 411 


(164)【 プ ログ ラム 例 】 














DIM a$(16, 3), X%(16, 2) デー タ の 配列 へ の 読み 出し 
FOR i=0TO4 

READ a$(i, 0), X%%Gi, 0), a$G, 1), a$G, 2), %%G, 1) 
NEXT i 
OPEN "b:meibo4.dat" FOR RANDOMAS#ILEN = 180 デー タ の ファ イル へ の 書き 込み 
FOR i=3T0O4 

FORj=0T03 


FIELD #1, 40 * j AS ddd$, 16 AS aa$, 2 AS bb$, 10 AS cc$, 10 AS dd$, 2 AS ee$ 
k =⑬-3)*4+j 
LSET aa$ = a$(k, 0) 
LSET bb$ = MKIS(X%(k, 0)) 
LSET cc$ = a$(k, 1) 
LSET dd$ = a$(k, 2) 
LSET ee$ = MKIS(X%(k, 1) ) 
NEXT j 
PUT #, i 
NEXT i 
CLOSE #1 
END 
DATA エ ゲ ゴロ 9, 53, ト 9 キト エ 作 ョ 97「, 1250 
DATA ] コ ヤゴ n9, 46, 7 人 77, 初 7「, 850 
DATA 付 7 ロ 9, 50,19 駐 7 エイ 人 97「,1000 
DATA が ny, 53, 77 遷 久 , エ 作 「 ョ 97「, 1150 
DATA 材 財 93y, 45, カト -, エイ 人 ョ 97「, 920 





(165)【 プ ログ ラム 例 】 


DIM a$(16, 3), x%(16, 2) 一 一 ーーーーーーーーーーーーー フ ァイル の オー プン 
OPEN "b:meibo4.dat" FOR RANDOM AS #1 LEN = 180 デー タ の 読み 出し 
FOR i=1104 

















FORj=0TO3 
FIELD #1, 40 * j AS ddd$, 16 AS aa$, 2 AS bb$, 10 AS cc$, 10 AS dd$, 2 AS ee$ 
GET 寺 , i 
k=GG-1)*4+j 
a$(k, 0) = aa$ 
x%(k, 0) = CVI(bb$) 
a$(k, 1) = cc$ 
a$(k, 2) = dd$ 
X%(k, 1) = CVI(ee$) 
NEXT j 
NEXT i 
CLOSE #1 ファ イル の クロ ー ズ 
FORi = 0 10 15 


PRINT a$SG, 0): x%G。 0), aSG, 1): aSG, 2): x%(G, リー 
NEXT i 
END 
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【 結 果 】 
エン ッ ド ウイ チロ ウ 33 ホッ カイ ト ~ ー エ f 守 コジ ワー 3465 
作 世 あこ 9 イチ 36 カコ ~ シマ ケン ソウ ム フ ~ 330 
ルカ タロ ウジ スリ オウ サカ フ キ ~ ョ ウム ブフ" 428 
カイ タ ~ タイ シト 43 し が で ン 作 生 ポメ ホ ~ ウエ キ フ ~ 580 
避 必 ドウ ルド 回 ウ 25 アオ モリ サン キ ~ ョ ウム ブ プ * 398 
ォ オタ ~ ノ リオ +0 トヤマ サン イリ ブー ォ 1 1 
ヤマ カワ カス ~ オ 38 トウ キョ ウト エイ キ * ョ ウフ ~ 490 
カワ タ ~ ヤス シ ~ 30 チバ ハ ~ サ ン ェ イ キ ~ ョ ウブ” +50 
舌 宛 コ の 回 必 53 トウ キョ ウト イキ コウ ガ ド 1250 
コヤマ コ ~ ロウ 46 アイ チサン キカク フ ~ 850 
サワ” 回 ゆ 50 コウ の ま が > ま ウブ” 1000 
タカ タ ~ ヒロ シ 53 フク オカ ケン エイ キ ^ ョ ウブ ~ 1150 
オオ サキ ツヨシ 45 ホッ カイ ト ~ ー の 920 

0 0 

0 0 

0 0 


(166)【 プ ログ ラム 例 】 


DIM a$(16, 3), x%(16, 2) 
OPEN “b:meibo4.dat" FOR RANDOM AS #1 LEN = 180 


デー タ を ファ イル か ら 読 み 出し 
名 前 が "タカ ダ ヒ ロ シ " の と き 出 身 地 を 





















FOR i = 1 T0 4 "カゴ シマ ケン "変更 し て 配列 へ 代入 
FORj=0T0O3 
FIELD #1, 40*j AS ddd$, 16 AS aa$, 2 AS bb$, 10 AS cc$, 10 AS dd$, 2 AS ee$ 
GET #, i 
ki-1)*4+j 
a$(k, 0) = aa$ 
X%(k, 0) = CVI(bb$) 
a$(k, 1) = cc$ 
a$(k, 2) = dd$ 
x%(k, 1) = CVI(ee$) 
IF a$(k, 0) = “7 ny "THEN a$(k, 1) = " 加 バル 
NEXT j 
NEXT i ーー ーー 
8 る さま 得 ま ーーー ニ ーー ニー ドー ュー キー PS 半生 
FORj=0103 
FIELD #1, 40 * AS ddd$, 16 AS aa$, 2 AS bb$, 10 AS cc$, 10 AS dd$, 2 AS ee$ 
k=-1)*4+j 
LSET aa$ = a$(k, 0) 
LSET bb$ = MKIS(x%(k, 0)) 
LSET cc$ = a$(k, 1) 
LSET dd$ = a$(k, 2) 
LSET ee$ = MKIS(x%(k, 1)) 
NEXT j 
PUT 寺 , i 
NEXT i 
CLOSE #1 
END 


上 l プロ グラ ム 編 
5 シー mn ーー ww mm-ーー-ー-ーー ーー ーーー シ ーー 一 


【 結 果 】( フ ァイル の 内 容 ) 


























エン ト ~ ウイ チロ ウ 33 ホッ カイ ト ~- エイ キ ~ ョ ウフ ~ 465 
イケ ター コウ イチ 36 カコ ^ シ マ ケ ン ソウ ム フ ~ 430 
ナカ タ ~ コ ウシ ~ 29 オウ サカ フ キ ~ ョ ウム フ ~ 428 
カイ タタ イシ ~ 43 ヤマ ク ~ チ ケン ホ ~ ウ エキ フ ~ 580 
コン ト ~ ウ サフ ~ ロウ 25 アオ モリ ケン キョ ウム フ ~ 398 
オタ ~ ノ リオ 40 トヤマ サン サイ リフ ~ 411 
ヤマ カワ カス ~ オ 38 トウ キョ ウト ェ エイ キ ~ ョ ウフ ~ 。 490 
カワ タ ~ ヤ スシ ~ 30 チサン ェ イキ ~ ョ ウフ ~ 3450 
ェ タ ~ コ ~ ロウ 53 トウ キョ ウト ェ イキ ~ ョ ウフ ~ 1250 
コヤマ コ ~ ロウ 46 アイ チサン キカク フ ~ 850 
イサ トワ サフ ~ ロウ 50 コウ チサン ェ イキ ~ ョ ウフ ~ 1000 出身 地 が 福岡 県 か ら 鹿 児島 県 
タカ タ ~ ヒ ロ シ 53 カコ ~ シ マ ケ ン エイ キ ~ ョ ウフ ~ 1150 に 変更 され て いる 
オオ サキ ツヨシ 45 ホッ カイ ト ~- エイ キ ~ ョ ウフ ~ 920 
0 0 
oO 0 
0 0 
(16?)【 プ ログ ラム 例 】 
DIM a$(16, 3), x%(16, 2) ファ イル か ら デ ー タ を 読み 出し , 名 前 が ” 
OPEN "b:meibo4.dat" FOR RANDOM AS #1 LEN = 180 イケ ダコ ウイ チ " の と き 先 頭 に * を つけ て 
FOR i = 1104 配列 へ 代入 
FORj=0T0O3 1 
FIELD #1, 40 * j AS ddd$, 16 AS aa$, 2 AS bb$, 10 AS cc$, 10 AS dd$, 2 AS ee$ 
GET #1, i 
ki-1)*4+j 
a$(k, 0) = aa$ 
x%(k, 0) = CVI(bb$) 
a$(k, 1) = cc$ 
a$(k, 2) = dd$ 
X%(k, 1) = CVI(ee$) 
IF a$(k, 0) = " 位 ゲ 19 人 "THEN a$(k, 0) = "*177 和仁 
NEXT j 
NEXT i 
FOR i = 1 TO 4 ーー 7 電 齋 す 
FORj=0T03 
FIELD #1, 40 * ま 】 AS ddd$, 16 AS aa$, 2 AS bb$, 10 AS cc$, 10 AS dd$, 2 AS ee$ 
k = 介 -1)*4+j 
LSET aa$ = a$(k, 0) 
LSET bb$ = MKIS(x%(k, 0)) 
LSET cc$ = a$(k, 1) 
LSET dd$ = a$(k, 2) 
LSET ee$ = MKIS(x%(k, 1)) 
NEXT j 
PUT #1, i 
NEXT i 
CLOSE # 
END 
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【 結 果 】 (ファ イル の 内 容 ) 


エン ト ~ ウ イチロウ 
※ イ サタ ~ コウ イチ 
ナカ タ ~ コウ シ ~ 
カイ タ ~ タイ シ ~ 
コン ト ~ ウサ ブフ ~ ロウ 
オタ“ ノ フリオ 

ヤマ カワ カス ~ オ 
カウ タテ ヤス シ ^ 
中 あや 占め 

コ ヤ PP 回 ウ 
イサ ^ ワ サフ ロウ 
タカ タ ~ ヒロ シ 
オオ サキ ツヨシ 


33 
36 
29 
43 
25 
40 
38 
30 
53 
46 
50 
53 
45 
0 

0 

0 


ホッ カイ ト “ ー 
カド ジマ カシ 
オウ サカ フ 
ヤマ ク ~ チサン 
了 オ モリ サン 
トヤマ ケン 
トウ キョ ウト 
チ ハ ~ サ ン 
トウ キョ ウト 
プイ チク シン 
コウ チサン 
カコ ^ シマ サン 
ホッ カイ ト ~* ー 
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ェ エイ キョ ウフ ~ 
ソウ ム フ * 

キ ~ ョ ウム ブフ * 
ホ ^ ウ エキ フ * 
キ ~ ョ ウム ブフ ~ 
サイ リ ワ * 
エイ キ ~ ヨウ フ * 
エイ キ ~ ョ ウブ * 
エイ ギ ~ ョ ウフ 
キカク フ ~ 
エイ キ ~ ヨウ フ ~ 
エイ キ ~ ョ ウフ ~ 
ェ イ キョ ウフ ~ 


21 章 ラン ダム ファ イル (1) 





165 
430 一 一 削除 マー タク が つい て いる 
1428 

580 

398 

411 

490 

450 

1250 

850 

1000 

1150 

920 

0 

0 

0 
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22 章 ラン ダム ファ イル (2②) 


TYPE 型 を 使用 LOF 





【 例題 159】 TYPE 型 を 使っ た ラン ダム ファ イル へ の 書き 込み 
下 の デ ー タ 組 を ラン ダム ファ イル computer .dat に か く プ ログ ラム を つく れ . 


デー タ : 型 名 社名 価格 (円 ) 
X6800 Sharp 356000 
FTM-Towns Tujitsu 558000 
PC-9801ES/ る NEC 448000 














【 解 説 】 〇 TYPE 型 を 使っ て ラン ダム ファ イル へ デー タ 組 を 書き 込み ます -. 
① Quiok BASIC で は バッ ファ を Tie1d 文 で 割り あて る 従来 の 方 法 の 他 C TYPR 型 を 使っ て ラ 
ンダ ム フ ァ イル を つく る と と が で きま す . と の 場合 は 1 バッ ファ が 256 バイ ト と 固定 し た 考え で な 
く , TYPE 型 の 持つ バイ ト 数 で 決め られ る た め む だ が 少な く て すみ ます . 
⑨ TYPR 型 で タブ computer を 宮 言 し ます . 文字 型 15+10 バイ ト と 長 整 数 4 バイ ト の 合計 29 バ 

イト が 1 組 の 必要 バイ ト 数 で す . 


③ ラン ダム ファ イル の オー プン は 次 の よう に し ます . 


0PEN "oomputer.dat " 。 FOR RANDOM AS #1 LEN=LEN(a ) 
オー プン ファ イル 名 ラン ダム ファ イル 


を 指定 





叶 オー プン 番号 に ファ の バイ トト 数 
a は TYPRE 型 変数 名 


LEN=LEN(a ) に よっ て バッ ファ の バイ ト 数 が 決め られ ます か ら , 無駄 な く 書 き 込 み が で きま す . 
④ 次 の 命令 で デー タ 組 を 書き 込み ます . 


POT 1。 も 
| | 時 
書き 込み オー プン 番号 レコ ー ド 番号 書き 込む 内 容 


a・brand, a.company,a・prioe を 1 組 と し て 一 度 に 書き 込む 
ュ i が 1. 2 8 と な り 1 レコ ー ド , 2 レコード, 3 レコ ー ド を 順に か く . 





ファ イル の クロ ー ズ は CLOSE #*1 と オー プン 番号 を 使っ て 行い ます . 
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22 章 ラン ダム ファ イル (2) 


ノノ メ ヘー 


【 プ ログ ラム 例 】 


TYPE computer TYPE 型 の 宣言 
brand AS STRING * 15 
company AS STRING * 10 
price AS LONG 























END TYPE 

DIM a AS computer TYPE 型 の 変数 a を 宮 言 

OPEN "b:computer.dat”" FOR RANDOM AS #1 LEN = LEN(a) 一 ファ イル の オー プン 

FOR i=1103 Tー1 組 5 つの デー タ 組 を 8 組 読み 込ん で 
READ a.brand, a.company, a.Drice レコ ー ド 番号 1、 2, 5 と し て ファ イル 
PUT #1, i, a | へ 書き 込む 

NEXT i 

CLOSE #1 ファ イル の クロ ー ズ 

END 


DATA X6800.Sharp, 356000, FM-Towns,Fujitsu, 338000 
DATA PC-9801ES/2, NEC, 448000 





【 例 題 1600】) ラン ダム ファ イル の 読み 出し 
【 例 題 159】 で 書き 込ん だ デー タ を 読み 出し て 表示 する プロ グラ ム を つく れ . 








【 解 説 】 〇 ラン ダム ファ イル の 読み 出し を し ます . 

① 読み 出し た デー タ を 格納 する タイ プ 下 変 数 の 宜 言 を し ます -. これ は 書き 込み し た 時 と 同じ TYPE 
型 と し ます . 

⑨ ファ イル を オー プン し ます . ファ イル の オー プン は 書き 込み と 全く 同じ で す . 

③ 次 の 命令 で デー タ 組 を 読み 出し ます - 


GET #1。 1。& 
| | L___ _ メイ プ 型 変数 3 デー タ を 1 組 と し て 読み 出す 
読み 出し オー プン ~ レ コー ド 番 号 


























番号 1 を 1, 2。 3 と し て 1 レコ ー ド , 2 レコ ー ド , 3 レコ ー ド を 読み 出す 
【 プ ログ ラム 例 】 
TYPE computer TYPE 型 の 宣言 
brand AS STRING * 15 
company AS STRING * 10 
price AS LONG 
END TYPE 
DIM a AS computer TYPR 型 の 変数 a を 宣言 
OPEN "b:computer.dat”FOR RANDOM AS #1 LEN = LEN(a) 一 ファ イル の オー プン 
FOR i =1103 ファ イル か ら デ ー タ を 読み 出し て 表示 
GET 者 , ii, a 
PRINT a.brand: a.company: 4.DTice 
NEXT i - 
CLOSE #1 ファ イル の クロ ー ズ 
END 
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ーー ビ ー】 ド lー コ ーー 
【 結 果 】 
X6800 Sharp 356000 
FM-Towns Fujitsu 338000 
PC-9801ES/2 NEC 3448000 





【 例 題 161】 ラン ダム ファ イル へ 追加 
【 例 題 159】 で つく っ た ファ イル computer .dat (に 下 の デ ー タ 組 を 追加 し て 書き 込む プ 


ログ ラム を つく れ , 


ゲー : 型 名 社名 価格 
PC-286VE Epson 298000 
J-2100 Toshiba 448000 











【 解 説 】 〇 ラン ダム ファ イル に デー タ 組 を 追加 し ます . 

① TYPE 型 変数 を 使っ て ラン ダム ファ イル を つく る 場合 , 1 組 の デー タ が 1 レコ ー ド と し て 書き 込 
まれ て いま すか ら , レコ ー ド 組 の 追加 は 書き 込ま れ て いる 最後 の レコ ー ド の 次 書き 込め ば よい と と 
(に な り ま す . 

③ 書き 込ま れ て いる レコ ー ド 数 は 次 の 式 で 求め られ ます -. 


LOT(1) / LEN(a)  …… レコ ー ド 数 と な る 
1 1 
全体 の バイ ト 数 TYPE 型 変数 の 
総 バ イト 数 


⑧ し た が っ て , 追加 で か き 込 むために は 上 の LOT(1 ) /LEN(a ) の 値 +1 番目 の レコ ー ド か ら か きこ と 
め ば よ いと と に な り ま す 
【 プ ログ ラム 例 】 


TYPE computer TYPE 型 の 宮 言 
brand AS STRING * 15 
company AS STRING * 10 
price AS LONG 


























END TYPE 

DIM a AS computer TYPE 型 の 変数 の 宣言 

OPEN "b:computer.dat" FOR RANDOM AS #1 LEN = LEN(3) ファ イル の オー プン 

n = LOF(1) / LEN(a) レコ ー ド 数 を n に 求め る 

FORi=n+1T0n+2 n+1 レコ ー ド , n+2 レコ ー ド に 
READ a.brand, a.company, a.price デー タ を 書き 込む 
PUT #1, ia 

NEXT i ファ イル の クロ ー ズ 

CLOSE 

END 


DATA PC-286VE, Epson, 298000, J-3100, Toshiba, 448000 


22 章 ラン ダム ファ イル (2) 


ーー 





Poem ニュ ーー ニニ ーー 





【 例題 162】 ファ イル デー タ の 読み 込み 
【 例 題 161】 を 行っ た 後 の フ ァイル computer・dat の デー タ を 読み 出し て 表示 する プロ 
グラ タム を つく れ . 











【 解 説 】 〇 ファ イル デー タ を 読み 出し ます . レコ ー ド 数 の 数 え 方 を 確認 し ます . 
① ファ イル computer・.dat の 中 の レコ ー ド 数 は 不明 で す . レコ ー ド 数 は 次 の 式 で 求め ます. 
LOT(1) / LEN(&) " … レ コー ド 数 
1 1 
全体 バイ ト 数 TYPR 型 変数 の 
バイ ト 数 
⑨ レコ ー ド 数 が n 個 と わか れ ば 1 か ら n まで の く り 返 し で n レコ ー ド を 順に 読み 出し 表示 し ます . 
【 プ ログ ラム 例 】 


TYPE computer TYPRE 型 の 宮 言 
brand AS STRING * 15 
company AS STRING * 10 
price AS LONG 


























END TYPE 

DIM a AS computer TYPR 型 変数 a の 宣言 

OPEN "b:computer.dat"FOR RANDOM AS #1 LEN = LEN(a) ファ イル の オー プン 

n = LOF(1) / LEN(3) レコ ー ド 数 を n c 求 め る 

FORi=110n 1 か ら n レ コー ド ま で を 
GET #1, 1, a 読み 出し て 表示 
PRINT a.brand: a.company: 4.pTice 

NEXT i 

CLOSE #1 ファ イル の クロ ー ズ 

END 

【 結 果 】 

X6800 Sharp 356000 

FM-Towns Fujitsu 338000 

PC-9801ES/2 NEC 448000 

PC-286VE Epson 298000 

J-3100 Toshiba 448000 





【 例題 1013】 ラン ダム ファ イル の 書き 換え 
ファ イル computer.dat の 第 2 レコ ー ド を 下 の デ ー タ 組 に 入れ か える プロ グラ ム を つく れ . 
デー タ : FM77AV408Sx、 FujitSU, 267800 








【 解 説 】 ③ ラン ダム ファ イル の 書き 換え を し ます 
① ラン ダム ファ イル の レコ ー ド の 書き 換え は , 書き 換え る レコ ー ド 番号 を 指定 し て , 新しい デー タ 組 
を 書き 込め ば 変更 が 行わ れ ま す -. 
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中 プロ グラ ム 編 
ーー 和 タ eo 
PU # す 。 る 。 る 
_ 
オー プン 衝 | TYPE 型 変数 8 (新しい デー タ 組 ) 
第 4 レコ ー ド 書き 込む 


【 プ ログ ラム 例 】 


TYPE computer TYPR 型 の 宮 言 
brand AS STRING * 15 
company AS STRING * 10 
price AS LONG 























END TYPE 

DIM a 4S computer TYPRE 型 変数 a の 宮 言 
OPEN “b:computer.dat" FOR RANDOM AS #l LEN = LEN(a) ファ イル の オー プン 
READ a.brand, a.company, a. price デー タ の 読み 込み 

PUT 2, a 2 レコ ー ド 目 書 き 込 み 
CLOSE #1 ファ イル の クロ ー ズ 
END 


DATA FM77AV40sx, Fujitsu, 267800 
【 結 果 】 (ファ ィ ル の 内 容 ) 


X6800 Sharp 356000 - 
FM77AV40sX Fujitsu 267800 一 変更 デー タ 
PC-9801ES/2 NEC ォ 348000 

PC-286VE Epson 298000 

J-3100 Toshiba 448000 





【 例題 164】 ファ イル デー タ を 配列 に 読み 出す 
ファ イル oomputer.dat の デー タ 組 を TYPR 型 配列 変数 b( ) c 読 み 出 し て 表示 する プロ 
グ 衝 層 つぐ 末 。 








【 解 説 】 〇 ファ イル の デー タ 組 を 配列 へ 読み 出し ます -. 
① ファ イル の デー タ 組 を 読み 出し , 配列 へ 代 人 し ます -. 
② 配列 を TYPE 型 の 配列 変数 と すれ ば 次 の よう (に な り ま す . 


TOR =1 TO n レコ ー ド 数 n 個 1 を 1 か ら n ま で くり 返す 
GET #1。1。 a TYPE 型 変数 a c i 番目 の レコ ー ド を 読む 
b(i) .brand=a . brand a・brand-a.prioe を b(1i) .brand っ b(i) .price 
b(i) .company=a . Company |e 
b(i).prioe=a.price 

NEXT 1 

③⑬ TYPE 型 配列 変数 で は な く 2 次 元 配 列 に 代入 する 場合 は 次 の よう に 代入 で きま す . 
b$(1i,。1 )=a。brand b(i).brand の か わり に b$(i,1) を 使う 


b$(1,2)=a.company b(i)・company の か わり (KC b$(i, る 2) を 使う 
c(i)=a。prioe b(i)・price の か わり (Cc(i ) を 使う 
前 も っ て 配列 DIM b$(1 TO n,1 TO る 2) と DIM oc(1i) を し て お く . 
30 了 


22 章 ラン ダム ファ イル (2) 
UUCCUTT て て TEE ユラ 


【 プ ログ ラム 例 】 


TYPE computer TYPE 型 の 宮 言 
brand AS STRING * 15 
company AS STRING * 10 
price AS LONG 



































END TYPE 
DIM a AS computer TYPE 型 変数 の 宣言 
OPEN "b:computer.dat" FOR RANDOM AS #1 LEN = LEN(a) ファ イル の オー プン 
n = LOF(1) / LEN(a) レコ ー ド 数 を n に 求め る 
DIM b(1 TO n) AS computer TYPE 型 配列 変数 も ( ) を 宜 言 
FOR i = 1 10n ファ イル の デー タ を 読み 出し 
GET #1, i, a て 配列 変数 へ 代入 
b(⑪).brand = a.brand 
b(⑪).company = a.company 
b(i).price = a.price 
NEXT i 
CLOSE #1 ファ イル の クロ ー ズ 
FOR i=110n 表示 
PRINT b(⑪).brand: bG).company: b(⑪).price 」 
NEXT i 
END 
【 結 果 】 
X6800 Sharp 356000 
FM77AV40Sx FujitSu 267800 
PC-9801ES/2 NEC 448000 
PC-286VE Epson 298000 
J-3100 Toshiba 448000 





【 例 題 165】 ファ イル の 検索 
ファ イル computer .dat を 使っ て , 整数 x% を 入力 し , x% 番 目 の レ コー ド の デー タ 組 を 表 
示す る プロ グラ ム を つく れ . 








【 解 説 】 〇 ファ イル デー タ を 検索 し ます . 

① ラン ダム ファ イル の デー タ の 検索 は , レコ ー ド 番号 を 指定 し て , その レコ ー ド の デー タ 組 を TYTE 
型 変数 に 読み 出し ます . 

【 プ ログ ラム 例 】 


TYPE computer TYPE 型 の 宮 言 
brand AS STRING * 15 
company AS STRING * 10 
price AS LONG 




















END TYPE 

DIM a AS computer TYPE 型 変数 a の 宮 言 
INPUT x% 整数 x% の 人 入力 

OPEN "b:computer.dat" FOR RANDOM AS #1 LEN = LEN(a) ファ イル の オー プン 





GET 者 , x% a | x% 番 目 の レ コー ド を 読み 出し て 表示 
PRINT a.brand: a.company: a.DTice 
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ーー むり 連 ーーmwーーーーーー ヤ ーーー ツー ツー ツー ワー ワー 


























CLOSE #1 ファ イル の クロ ー ズ 
END 
【 結 果 】 
6 8 を 入力 の 例 
PC-9801ES/2 NEC 448000 
[演習 問題 」 
(168) 下 の デ ー タ 組 を TYPRE 型 を 使っ て ラン ダム ファ イル meitbo5.dat に か く プ ログ ラム を つ 
く 琴 。 
名 前 年 齢 年 収 
大 山 太郎 | sg 1570 
植田 義雄 41 1300 
果 田 ミ 公 | 25 820 
徳川 義男 52 2300 
川上 太郎 21 420 
天田 義満 37 1210 

















(169) (168) で つく っ た ファ イル meibo5.dat の デー タ 組 を 読み 出し て 表示 する プロ グラ ム 
つる 板 : 

(170) (168) で つく っ た ファ イル meibo5.dat に 次 の 3 組 の デー タ 組 を 追加 し て 書く プロ グ 
ンジ を つく れ 、 





名 前 年 齢 年 収 
清水 了 38 950 
千葉 勝利 25 880 
橋田 鉄夫 39 730 


























(CZ) (170) で つく っ た ファ イル meitbo5.dat を 読み 出し て 表示 する プロ グラ ム を つく れ . 
た だ し デー タ 数 は 不明 と する . 

(172) (170) で つく っ た ファ イル meibo5.da も の 第 5 レコー ド を 下 の デ ー タ 組 で か きか える 
プロ グラ ム を つく れ . 





名 前 年 齢 年 収 
園田 仙一 | 62 5230 























(175) meibo5.dat の 4 番目 の デー タ 組 を 読み 出し て 表示 する プロ グラ ム を つく れ . 
30 ど 6 





(168)【 プ ログ ラム 例 】 


io 
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ニーーーー= ュ ーーー ニー アト 


TYPE 型 の 宣言 





TYPE meibo 
namae AS STRING * 10 
nenrei AS INTEGER 
nenshu AS INTEGER 





END TYPE 
DIM a ASmeibo 


TYPRE 型 変数 a の 宮 言 





OPEN "b:meibo5.dat" FOR RANDOM AS #1 LEN 
FORi=1106 


= LEN(a) ファ イル の オー プン 








READ a.namae, a.nenrei, a.nenshu 
PUT #, i, a 
NEXT i 


| デー タ を 読ん で ファ イル へ 書き 込み 





CLOSE 前 





END 

DATA 材 2n9, 38, 1570, 7 ゲオ 41, 1300 
DATA 9 多 7 層 , 25, 820, ト 7 が 73y れ 52, 2300 
DATA 9 が 2n9, 21, 420.777 ヨ パ バリ, 37, 1210 


(169)【 プ ログ ラム 例 】 
TYPE meibo 


ファ イル の クロ ー ズ 


TYPE 型 の 宮 言 





namae AS STRING * 10 
nenrei AS INTEGER 
nenshu AS INTEGER 





END TYPE 
DIM a ASnmeibo 





OPEN "b:meibo5.dat" FOR RANDOM AS #1 LEN 
FORi=1106 


TYPR 型 変数 8 の 宣言 
ファ イル の オー プン 





= LEN(a) 





GET #, ii, a 
PRINT a.namae: a.nenrei: a.nenShu 
NEXT i 


ファ イル か ら 6 組 の デー タ を 読み 込み 








CLOSE #1 

END 
【 結 果 】 
ォ オヤ マタ ロウ 。 38 1570 
ウェ タ ~ ヨ シオ 41 1300 


クリ タ サ フ ~ ロウ 25 820 
トク カ ~ ワ ヨ シオ 52 2300 
カワ カミ タロ ウ 21 420 
アマ タ ~ ヨシ ミウ 37 1210 
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ファ イル の クロ ー ズ 


中 プロ グラ ム 編 


ーーーーーーー-……ー………ー…… と Oo 


(170)【 プ ログ ラム 例 】 


TYPE meibo TYPE 型 の 
namae AS STRING * 10 
nenrei AS INTEGER 
nenshu AS INTEGER 


L 


則 





血 


呈 























END TYPE 

DIM a AS meibo TYPE 型 変数 a の 宮 言 

OPEN "b:meibo5.dat" FOR RANDOM AS #l LEN = LEN(a) ファ イル の オー プン 

n = LOF(1) / LEN(a) レコ ー ド 数 を n に 求め る 

FORi=n+1T0n+3 ファ イル KC 8 組 の レコ ー ド を 追加 
READ a.namae, a.nenrei, a.nenshu 
PUT #, ia 

NEXT i 

CLOSE #1 ファ イル の クロ ー ズ 

END 


DATA バズ リリ 38. 950, 私 " 罰 和 ツ , 25, 880 
DATA 人 ツゲ 4 39, 730 


(171)【 プ ログ ラム 例 】 


TYPE meibo TYPE 型 の 宮 言 
namae AS STRING * 10 
nenrei AS INTEGER 
nenshu AS INTEGER 
END TYPE 
DIM a AS meibo 一 ーー ーーーー ーー _ryPE 弄 変数 a の 宮 言 
OPEN "b:meibo5.dat" FOR RANDOM AS #1 LEN = LEN(a) ファ イル の オー プン 























n = LOF(1) / LEN(a) レコ ー ド 数 を n c 求 め る 
FORi=110n ファ イル の デー タ を 読み 出し て 表示 
GET #1, ia 
PRINT a.namae: a.nenrei: a.nenshu 
NEXT i 
CLOSE 家 ファ イル の クロ ー ズ 
END 
【 結 果 】 
ォ オ ヤマ タロ ウ 38 1570 
ウェ タ * ヨ シオ 41 1300 


クリ タ サ フ * ロウ 25 820 
トク カ ~ ワリ ヨシ オ 52 2300 


カワ カミ タロ ウ 21 320 
ジロウ ミウ 37 1210 
シミ ス ~ リョ ウ 38 950 
ナハ ~ カツ ト シ 25 880 
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(172)【 プ ログ ラム 例 】 


(173) 


TYPE meibo TYPE 型 の 宣言 
namae AS STRING * 10 
nenrei AS INTEGER 
nenshu AS INTEGER 























END TYPE 

DIM a AS neibo TYPE 型 変数 a の 宣言 
READ a.namae, a.nenrei, a.nenshu デー タ 文 の デー タ を 読む 
OPEN "b:meibo5.dat" FOR RANDOM AS #1 LEN = LEN(3) ファ イル の オー プン 

PUT #1, 3, a 第 3 レコ ー ド 数 へ 書き 込み 
CLOSE #1 ファ イル の クロ ー ズ 

END 


DATA 7/ ダ ャ も 〉 位 , 62, 5230 


【 結 果 】( フ ァイル の 内 容 ) 


オオ ヤマ タロ ウ 38 1570 
ウェ タ ~ ヨシ オ 31 1300 
ソノタ セッ ゴチ 62 5230 変更 デー タ 
トク カ ~ ワ ヨ シオ 52 2300 























カワ カミ タロ ウ 21 420 
アマ タ * ヨ シミ ツ 37 1210 
シミ ス ~ リョ ウ 38 950 
チ ハ ^ カツ トシ 25 880 
ハシ タ ~ テツオ 39 730 
【 プ ログ ラム 例 】 
TYPE meibo タイ プ 型 の 宣言 
namae AS STRING * 10 
nenrei AS INTEGER 
nenshu AS INTEGER 
END TYPE 間 還 衣 
DIM a ASnmeibo 配列 の 宮 言 
OPEN "b:meibo5.dat" FOR RANDOM AS #1 LEN = LEN(a) の の 計 ログ 
GET 前 , 4, a 4 番目 の デー タ の 読み 出し 
PRINT a.namae: a.nenrei: a.nenshu 表示 - 
CLOSE #1 ファ イル の クロ ー ズ 
END 
【 結 果 】 


トク カ ~ ワ ヨ シオ 52 32300 
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23 章 シー ケン シャ ルフ ァイル を 
ラン ダム ファ イル 化 


SEEK 


ー コ 





【 例題 166 】 SEEK を 使っ て シー ケン シャ ルフ ァイル を ラン ダム ファ イル の よう に 使う 
下 の デ ー タ を シー ケン シャ ルフ ァイル reidai .dat に か き , 次 整数 xx% を 1 つ 入 力 し , 
xx% 番 目 の デ ー タ を 読み 出し て 表示 する プロ グラ ム を つく れ . 
デー タ : トウ キョ ウ , オオ サカ , タカ マツ , サッ ポロ , チバ , セン ダイ , ヒロ シマ 。 
ナガ サキ , トリ デ , ミヤ ザキ 











【 解 説 】 @⑤ SEEK を 使う と シー ケン シャ ルフ ァイル を ラン ダム ファ イル の よう に 使え ます . 

① SRRK は 指定 し た 位置 へ ファ イル ポイ ンタ を お く と と が で きま す . し た が っ て , その 仔 置 か ら 読み 
出し た り , その 位置 へ 書き 込み を し た りす る と と が で きま す . 

@⑥) シー ケン シャ ルフ ァイル は 数 値 型 , 文字 型 に 関係 な く 順に 書き 込み , 読み 出し が で きま す . また . 
その と き , 文字 型 の 文字 の 数 が 一 定 で な く て も よい と いう 便利 さ が あ り ま す 

③ し か し , ファ イル ポイ ンタ を 任意 の 場所 に お け て も , 特 文 字 型 デ ー タ で 長 さ が ば ら ば ら で は ど と 
を 指定 し て よい の か わか り ま せん . し た が っ て , と と で は , 10 個 の 都市 名 の デー タ を お の お の 10 
文字 の 長 さ と し て 格納 する と と に し ます . 

④ まず 10 都市 名 を シー ケン シャ ルフ ァイル reidai .da も t に か きま す . 次 が その プロ グラ ム 例 で 
す . 

【 プ ログ ラム 例 】 


DIM x$(10) 
FOR i=0109 
READ x$(⑪) 
NEXT i 
OPEN "b:reidai.dat" FOR OUTPUT AS #l 
FORi=0TO9 
WRITE #, x$(⑪) 
NEXT i 
CLOSE # 
END 
DATA "トキ ョ リ "。 材 狗 " 
DATA " 幼 Yy "サッポロ 


DATA "か "> 2 ゲイ " 
DATA "Lny マ " 連 狂 " 
DATA "トリ デ "サキ 上 
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エモ C 所 CE 所 CT1D Kb も 6 ビュ ビューーーーーーーーーーーーーー-ーー-ーーーーー ーー 


⑤ 確認 の た め 順 に 読み 出す と 次 の よう に な り ま す . 
【 ブ プロ グラ ム 例 】 読み 出し の プロ グラ ム 


OPEN "b:reidai.dat" FOR INPUT AS 半 
FORi=0109 
INPUT #1, x$ 
PRINT x$ 
NEXT i 
CLOSE #1 
END 


【 結 果 】 読み 出し 結果 


トウ キョウ 
オオ サカ 
タカ マツ 
サッ ホ ? 日 
チ ハ ~ 

ヒロ シマ 
ナカ ~ サキ 
トド り デ * 
玩 形 沙 や 素 


⑥ 次 CC SEEK を 使っ て ファ イル ポイ ンタ を 移動 させ ます - 
10 個 の 都市 名 は 次 の よう に 格納 され て いま す 
1234567 8 910111213141516171819202122232425262728293031323334…… 




































































10 文字 10 文字 
"トウ ゥ キョ ウゥ ロロ 『 ・ オオ サカ ロロ ロロ "ーー "タカ マッ ロ …… 
14 桁 14 桁 


⑦ し た が っ て xx% 番 目 の デ ー タ は (xx%ー1 )*14+ ユ バイ ト 目 か ら か か れ て いま す . そ と で , そ と へ 
ファ イル ポイ ンタ を 移し ます . ファ イル ポイ ンタ は SBEK を 使っ て 自由 に 動か せま す . 指定 位置 へ 
ファ イル ポイ ンタ を 移し て , 読み 出し , 書き 込み し ます . 

SEEK #1,y% 
バイ ト 番 号 (xx% 番 目 の と き は (xx%-1 ) *+14+1 が y% の 値 と な る ) 
ファ イル の オー プン 番号 

⑧ ファ イル ポイ ンタ は 任意 の 位置 へ 動き ます か ら あ た か も シー ケン シャ ルフ ァイル が ラン ダム ファ イ 
ル の よう K 扱 えま す . 

















【 プ ログ ラム 例 】 
INPUT xx% xx% の 入力 
OPEN ”b:reidai.dat" FOR INPUT AS # ファ イル の オー プン 
7% = (xx% - 1) * 14 + 1 一 一 ーー 一 一 **% 番 目 の デ ー タ の 先頭 の バイ ト 数 
SEEK #1, y% ファ イル ポイ ンタ を ゞ % へ 移す 
INPUT #1, x$ y% か ら の 1 デー タ を 読み 出す 
CLOSE ファ イル の クロ ー ズ 
PRINT xx%: "7 ッ だ ": x$ ーーーーーーーーーー 表示 
END 
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【 結 果 】 


の 紅 5 を 入力 の 例 
3 八 ~ ン メ = タ カマ ツ 

? 4 4 を 入力 の 例 
4 ハバ ~ ン メ = サ ッ ホ ? ロ 

? 10 10 を 入力 の 例 
10 ハハ ~ ン メ = ミ ヤ サ ~ キ 

? 6 6 を 入力 の 例 


6 ルン メ = セ ンタ トイ 





【 例 題 167】 整数 ファ イル を seek で さがす 
次 の デー タ を シー ケン シャ ルフ ァイル reidai1.dat に か き ., 次 に 番号 を 指定 し て , その 
番号 の デー タ を 読み 出し て 表示 する プロ グラ ム を つく れ . 
データ * Di 8。 る 8 9 1 5 4。.9 
9。 8。 る る 9. 1、8. 0 











【 解 説 】 〇 整数 ファ イル を seek を 使っ て さがし ます . 
① 整数 デー タ を ファ イル reidai1.dat に か きま す . 
【 プ ログ ラム 例 】 


DIM x%(20) 

FORi=0TO19 
READ x%(1) 

NEXT i 


OPEN “b:reidai1.dat" FOR OUTPUT AS 前 遇 肖 


デー タ の 読み 込み 








FORi=0TO19 
WRITE #, x%⑪) 
NEXT i 
CLOSE #1 
END 
DATA 5.3, 2.7,8, 
DATA 9,4. 8, 2, 7, 





9.1.5.4.9 
4.9.1.3.0 
② 整数 デー タ の xx% 番 目 は (xx%-1 ) *8+1 で 先頭 が 求 ま り ます 
③ 整数 は る 々 バイト それ に 区 切り の カン マ で 3 バイ ト ず つ 使 われ て いま す . 
バイ ト 123 456 789 101112 ……… 
値 5, 人 誠 。 人 。 Anasesias 0 
【 プ ログ ラム 例 】 


INPUT xx% xx% 番 目 の 入力 
OPEN “b:reidai1.dat" FOR INPUT AS #l ファ イル の オー プン 
SEEK #1, (xx% - 1) * 3 + 1 一 ーーーーー ポ イン タ を 移動 

















INPUT #1, x% 読み 出し 

CLOSE #1 ファ イル の クロ ー ズ 
PRINT xx%: "パッ た ": x% 表示 

END 
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ーー テー 


【 結 果 】 


癌 光 交 17 を 入力 の 例 
17 ハ ^ ン メ = 9 





【 例 題 168】 seek を 使っ て 浮動 小数 点 型 デ ー タ を 読み 出す 

次 の デー タ を ファ イル reidai2.dat に か き , 次 C xx% 番 目 を 入力 し て , xx% 番 目 の デ 
ー タ を よみ 出す プロ グラ ム を つく れ . 

デー 炎 ぅ 4。、 らら 。6。 ら 5。 4 る 5。4。 5。 る 。 る 。7。 2.7。 8.9。1。9 








【 解 説 】 〇 浮動 小数 点 型 数 値 を seek を 使っ て 読み 出し ます - 
① 実数 データ を ファ イル へ 書き 込み ます . 
【 プ ログ ラム 例 】 
DIM x!(10) 
FOR i =0 109 
READ x!G⑪) ] 
NEXT i 


OPEN "breidai2.dat" FOR OUTPUT AS 持 デー タ を ファ イル へ 書き 込み 
FORi=0TO3 





デー タ の 読み 込み 





WRITE #1, x!G⑪) 
NEXT i 
CLOSE # 
END 
DATA 4.3.2.6.3.5.4.3.5.4.3.2.2.7,2.7,8.9.1.9 


③ xx% 番 目 の デ ー タ は 次 の 式 で 先頭 が 計算 で きま す . 
( xx%-1 ) *5+1 
③⑬ 単 精度 実数 は 4 バイ ト , それ に カン マ で , 5 バイ ト が 使わ れ ま す -. 
バイ ト 1224567891011 




















値 4。5。 2.6。 85 er 1 .9 
【 プ ログ ラム 例 】 
INPUT xx% xx% 番 目 の 入 力 
OPEN "b:reidai2.dat" FOR INPUT AS 寺 ファ イル の オー プン 
SEEK 村 , (xx%-1)*5+ 1 一 ーーーーーー ポイ ンタ を xx% 番 目 に お く 
INPUT #1, x! 読み 出し 
CLOSE #1 ファ イル の クロ ー ズ 
PRINT xx%: "7 だ ": x! 4 
END 
【 結 果 】 
? 3 8 を 入力 の 例 
3 NYX=. 3.5 
? 10 10 を 入力 の 例 


10 ハハ ~ ン メ = 1.9 
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【 例題 169 】 seek を 使っ て デー タ の 修正 
ファ イル reidai2.dat を 使い 3 番目 の デー タ を 152.25 変更 する プロ グラ ム を つく れ . 








【 解 説 】 〇 seek を 使っ て デー タ の 修正 を し ます . 

① ファ イル reidai2.dat は 浮動 小数 点 単 精度 型 の デー タ で すか ら x% 番 目 の デ ー タ は (x%-1 ) * 
5+1 へ ポイ ンタ を お いて , 読み 書き で きま す . こと と で は , デー タ を 書き 込み ます の で , 前 の デー タ 
が 修正 され ます . 

















【 プ ログ ラム 例 】 
OPEN "b:reidai2.dat" FOR APPEND AS # ファ イル の オー プン 
SEEK #1, 11 3 番目 に ポイ ンタ を お く 
WRITE 計 , 152.33 152.35 を か く 
CLOSE #1 ファ イル の クロ ー ズ 
END 


【 結 果 】 (【 例 題 168】 の プロ グラ ム て で 読み 出し て 確認 ) 


? 3 
3 ハ ^ ン メ = 152.33 


[演習 問題 」 


(174) reidai.da も の ファ イル を 使い 、6 番目 を "ムロ ラン "KC 変 更 す る プロ グラ ム を つく れ . 

(175) reidai.da も の ファ イル を 使い , 1 番目 、 3 番目 , …9 番目 と 1 つ お き に デー タ を 表示 す 
る プロ グラ ム を つく れ . 

(176) reidai2.da も の ファ イル を 使い 2 番目 , 9 番目 の デー タ の 和 を 求め る プロ グラ ム を つ 











くれ . 
! 解 答 」 

(174)【 プ ログ ラム 例 】 

OPEN “b:reidai.dat" FOR APPEND AS #l ファ イル の オー プン 

SEEK #1, 71 6 番目 へ ポイ ンタ を お く 

WRITE #1, "An "ーーーーーーーーーーーーーー "ムロ ラン "を か く 

CLOSE 前 ファ イル の クロ ー ズ 

END 

【 結 果 】 

7? 6 【 例 題 166】 の プロ グラ ム で 表示 し た 例 


6 ハハ ~ ン メ = ム ロラ ン 6 番目 が "ムロ ラン "と な っ て いる 
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(175)【 プ ログ ラム 例 】 
OPEN "b:reidai.dat" FOR INPUT AS 寺 


mmm 





ファ イル の オー プン 














FOR i%= 1T0 9 STEP 2 1 つ お き K 読 み 出し て 表示 
yyY% = (1%-1) *14+ 1 1, 8, 5…9 番目 へ ポイ ンタ を お く 
SEEK #1, yy% 

INPUT #1, x$ 読み 出し 
PRINT x$ 表示 

NEXT ij% 

CLOSE #1 一 一 ーーーーーーーーーーー-- フ ァイル の クロ ー ズ 

END 

【 結 果 】 

トウ キョ ウ 

タカ マツ 

チ ハ ^ 

ヒロ シマ 

トリ テ ~ 


(176)【 プ ログ ラム 例 】 


OPEN "b:reidai2.dat" FOR INPUT AS 財 ファ イル の オー プン 


























FOR i=1102 2 番目 と 9 番目 の ファ イル デー タ を 読ん で 和 を 求め る 
READ xx% 何 番目 を 読む か デー タ 文 で 指定 
0 の WW 人 人 
SEEK #1, yy% 

INPUT #1, x1! デー タ の 読み 出し 
xx! = xx! 十 X! | 和 

NEXT i 

PRINT xx! 表示 

CLOSE #1 ファ イル の クロ ー ズ 

END 

DATA 2,9 

【 結 果 】 

11,5 
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REM $TINCLUDE、$STATTC, $DYNAMTC 





【 例題 170】 イン クル ー ド ファ イル 
変数 pi を 3.14159 と し , これ を グロ ー バ ル 変 数 と し て イン クル ー ド フ ァイル "pai .in” 
で 保存 し , 次 に と れ を 使っ て sin (20 度 ) の 値 を 求め る プロ グラ ム を つく れ . 








【 解 説 】 〇 メタ コマ ンド で イン クル ー ド ファ イル を と り 込 み ま す . 

① (@RPH) , 【F) , (名 , ファ イル 名 "pai.in"、 形式"T/ ノ インクルード" で 初期 画面 と し て イン ク 
ルー ド フ ァイル "pai。in" を 次 の よう に つく り ま す 

【 プ ログ ラム 例 】 


COMMON pi 
pi = 3.14159 


PND を つけ な いと と . END を つけ る と イン クル ー ド され た と き , そ と で 処 理 が 終っ て し まい ます . 
⑨ 次 に と れ を [GRPHJ, [F] , [S] で 保存 し ます . 
③ 次 (GRPH, 人 E , 【NJ で 新規 に 次 の プロ グラ ム を つく り ま す . 
【 プロ グラ ム 例 】 
REM $INCLUDE: 「b:pai. in 


PRINT SIN(20 / 180 * pi) 
END 





イン クル ー ド ファ イル の と りこ とみ 
結果 の 表示 





( わ と れ を [GRPH, [F) , [Al ファ イル 名 RRR-87 で 格納 し ます - 

⑤ と れ を 実行 し ます . イン クル ー ド フ ァイル の pi の 値 3・14159 が イン クル ー ド さ れ て STIN 
(20/180*pi ) が 実行 され 表示 され ます . 

【 結 果 】 


・3420199 (RRR-87 を 実行 し た 結果 ) 





【 例 題 171】 メタ コマ ンド include 
ファ イル hai in を 使っ て , 下 の デ ー タ を 配列 4$(12) に よみ , 次 に と の ファ イル を イン 
クル ー ド し て 1 つ お き K 表 示す る プロ グラ ム を つく れ . 
デー タ : Tokyo, Osaka, Nagoya, Fukuoka、Niigata, Sendai, 


Yokohama、 Kawasaki, Sapporo, Okayama, Koochi, Miyazaki 
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ヤヤ 5 ヤマサ サ ヤセ ヤ ね ゎ ワラ ワ ツ '|〈〔.|〔 ゅ 〔I{}†』†〕q《j《 べ 〈w_〈_4 ーーーーーーーーーーーーー 一 


【 解 説 】 〇 メタ コマ ンド $ino1ude を 使い ます - 
① 次 の ファ イル "hai・in" を つく り 保 存 し ます 


【 プ ログ ラム 例 】 ファ イル 名 ai・in 











DIM as(12) 

COMMON as$() 配列 の コモ ン 定 言 
FOR i = 0 TO 11 デー タ の 読み 込み 
READ as(i) ] MEI の 2 

NEXT i 


DATA Tokyo,OsakKa,Nagoya,FUKuOKa 
DATA Niigata,Sendai,Yokohama,Kawasaki 
DATA Sapporo,Okayama,Kochi ,Miyazaki 


③ 次 の 形 で ファ イル "hai・in" を と り と み ま す . hai・in で は , 配列 A4$(12) を 宜 言 し それ を グ 
ロー バル 変数 と し て いま す . し た が っ て , と の プロ グラ ム の 先頭 で と の 宣言 を 行っ を た の と 同じ 効果 を 
持ち ます . 


REM $INCLUDE: "bihai・in* 
メタ コマ ンド 名 
REM 文 の よう に か く : を いれ て ファ イル 名 を "" で 囲っ て お く ・ 


③ ェ ino1ude を 使う 9 こと で イン クル ー ド ファ イル を 共通 に どの プロ グラ ム か ら で $ ゃ 使え ま す .【[ 病 習 
問題 ] (178) で も と の イン クル ー ド ファ イル を と り と み ま す 


④⑧ ィ インク ルー ド フ ァイル は プロ シー ジャ (SUB や FUNCTTON) を 使え ませ ん - 
イン クル ー ド ファ イル は テキ スト ファ イル で す . 


【 プ ログ ラム 例 】 


REM $INCLUDE: 「b:hai.in イィ インクルード ファ イル の と り と て とみ 


FOR i=010105STEP2 合 果 の 表示 
PRINT a$G) 
NEXT i 


END 





【 結 果 】 


Tokyo 
Nag0Yya 
Niigata 
Yokohama 
SapporOo 
Kochi 
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【 例 題 172】 イン クル ー ド ファ イル 
次 の イン クル ー ド ファ イル を つく り , ファ イル 名 "kamoku.in "で 保存 し , 次 に 科目 番号 を 
信 力 し た 人 後 , その 科目 の 20 人 の 点数 を 入力 し て その 表示 と 平均 点 を 表示 せよ . 
イン クル ー ド フ ァイル "kamoku.in" の 内 容 
DIM a(20), bs(5) 
COMMON a() , bs〈) ファ イル kamoku.in 
FOR i = 1 TO 5 
READ b$〈(i) 
NEXT i 9 
DATA 英語 , 数 学 , 国 語 
DATA 社会 , 理 科 
b$(1 ) に 英語 、 b$(2) に 数 学 , …b$(5) に 理科 を 代入 , 配列 a(20), b$(5 ) を 宣言, 


それ ぞ れ を グロ ー バ ル と する . 











【 解 説 】 〇 イン クル ー ド ファ イル 
ゆ イン クル ー ド ファ イル "kamoku.in" を つく り 保存 し ます . 手順 は 次 の と お り で す . 
[GRPH] , [F) , [Q] , ファ イル 名 を bskamoku.in, 形式 を T/ イ ンク ルー ド と し ます . [) で 
初期 画面 と し て , 問題 の テキ スト を か きま す . その 後 (GRP,[F) [8 で 保存 し ます . 
⑤ 次 の 形 で "bikamorku.in" の イン クル ー ド ファ イル を と りこ と み ま す . 
REM $TNCLUDE: bikamoku.in・ 
【 プ ログ ラム 例 】 


REM SINCLUDE: 'b:kamoku. in イン クル ー ド ファ イル の と りこ と こみ 
INPUT “科目 番号 ": x 番号 の 入力 


FORi=11020 デー タ の 入力 
INPUT aG) 
NEXT i 


PRINT b$(x) : "の 点数 " 表示 
FOR i =1TO20 
PRINT a(): 
も =t+ a(⑪) 
NEXT i 
PRINT 
PRINT “平均 点 ": t / 20 
END 











入力 画面 
科目 番号 ? 2 
? 54 
? 89 
? 
【 結 果 】 
数 学 の 点数 
54 89 98 69 58 77 46 100 85 65 95 sa 77 se 94 56 68 76 99 75 
平均 点 76.05 
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ーー ャ ーー ee 





【 例題 173 】 $STATIC 配列 と $DYNAMIC 配列 
次 の デー タ を ダイ ナミ ッ ク 配 列 a$(15 ) c 読 み , 次 1 文字 を 入力 し て それ で 始ま る デー タ 
を 表示 する プロ グラ ム を つく れ . た だ し , プロ グラ ム の 終り で 配列 を 消去 する ゃ の と する - 
Shinagawa, Osaki, Gotanda, 4egur0o, Ebisu 


Shibuya,Harajuku,Yoyogi,ShinjukKu, Shinokubo 
Takatanobaba,Mejiro,Ikebukuro,Otsuka,Sugamo 











【 解 説 】 〇 ③ メタ コマ ンド に よっ て $STATTG 配列 と $DYNAMTO 配列 を 指定 し ます . 

① プロ グラ ム を コン パイ ル す る と き (c 記 憶 領域 を 確保 する $STATTC 配列 と プロ グラ ム を 実行 する と 

き 記憶 領域 を 確保 する $DYNAMTC 配列 に 分 け て 管理 する と と が で きま す - 
これ に よっ て , $DYNAMTC 配列 を 含む プロ グラ ム は 実行 さ れ て いな いと き , メモ リ を 他 に 有効 に 

使え ます . 特に 文字 列 配列 , 複数 次 元 の 配列 は メモ リ 使用 量 が 多い の で 有効 で す . 

⑥) DTM a(50) の よう に 定数 が 漆 字 の 配列 添字 が 10 以下 で 暗黙 に 宜 言 され た 配列 は WSTATTC 配 
列 で す . 

③⑬ DIM a(x) の よう KC 変 数 に よっ て 添字 が 決め られ る 配列 、 最初 C COMMON で 宮 言 され る 配列 は $ 
DYNAMIC 配列 で す . 

〈④ と と で は メタ コマ ンド $STATTC と $DYNAMITC を 使っ て 使い 分 け を し ます . 

⑮ ERASE a$(C よ っ て $STATTC 配列 で は 配列 の 各 細 素 の 値 が ”"” (ヌル) と な り ま す . $DYNAMIC 
配列 で は 配列 が 削除 され ます - 

⑥ REDIM a$(100) で $DYNAMTIC 配列 の 割り あて の や り 直し を し ます . 添字 が 前 と 変わ っ て も か 
まい ませ ん . た だ し , 次 元 数 を 変え ん る と と は で きま せん . $STATTC 配列 で は 配列 が 削除 され た わけ 
で は あり ませ ん か ら 再 宮 言 は エラ ー と な り ま す 


























【 プ ログ ラム 例 】 

REM $DYNAMIC a$ T 1 ナミ ッ ク 配 列 a$(15) の 宣言 

DIM a$(15) 

FOR i = 0 10 14 デー タ の 読み 込み 
READ a$(⑪) | 

NEXT i 

INPUT x$ 1 文字 の 入力 

FOR j = 0 10 14 デー タ を よみ , x$ で 始ま る デー タ を 表示 
IF ASC(a$(j) ) = ASC(x$) THEN PRINT a$(}) | 

NEXT j 

ERASE a$ 配列 の 消去 

END 


DATA Shinagawa, 0saki, Gotanda, Meguro, Ebisu 
DATA Shibuya, Harajuku, Yoyogi, Shinjuku, Shinokubo 
DATA Takatanobaba, Mejiro, Ikebukuro, 0tsuka, Sugamo 
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【 結 果 】 


人 の ニーーーーーー=@ を 入力 の 例 
Osaki 

Otsuka 

? SS 一 一 - S を 入力 の 例 
Shinagawa 

Shibuya 

Shinjuku 

Shinokubo 

Sugamo 


[演習 問題 」 


(17?) イン クル ー ド ファ イル pai .in を 使っ て , cos (20 度 ) の 値 を 求め る プロ グラ ム を つく 
し 

(178) ファ イル "hai.in" を 使っ て 。 93 番目 の デー タ を 表示 する プロ グラ ム を つく れ . 

(179) イン クル ー ド フ ァイル "amoku.in" を 使っ て , 科目 番号 を 入力 し . 次 に その 科目 の 20 
人 の 点数 を 入力 し て , 各 人 の 点数 と 最高 点 を 表示 する プロ グラ ム を つく れ 

(180) 配列 a$(6,2) を $STATTC 人 宣言 し て 次 の デー タ の 中 の 最初 の 6 組 の デー タ を 読み 。 表 
示し た 後 配列 を 消去 し , 後 の 4 デー タ を 読ん で 表示 する プロ グラ ム を つく れ . 





名 前 出身 地 
山内 一 男 | 大 孤 
大 友 雄 次 | 九 州 
中 山 真一 | 東 北 
































河野 洋二 | 北 海道 
渋谷 一 | 北 蘭 
川上 郎 東 。 京 
池山 符 中 部 
名 古屋 来 二 | 四 回 
馬場 等 | 東 北 
中 村 勇 | 東京 














(181 ) 配列 8$(10,2) を $DYNAMTC 配列 と し , (180 ) の デー タ 10 組 を 読み 込ん だ 後 , 配列 を 
消去 し , a&$(13,2) を 再 宣言 し て 再度 10 組 の デー タ を よみ さら 5 組 を 入力 し て 追加 し 全 
体 を 表示 する プロ グラ ム を つく れ . た だ し , 最後 に 配列 を 消去 する も の と する . 
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デモ ーー ンー っ rs 





! 解 


只 


(177)【 プ ログ ラム 例 】 


*pai.in" は 【 例 題 170】 で 作成 ずみ と し ます 
イン クル ー ド ファ イル の と りこ と み 
結果 の 表示 


REM $INCLUDE: 「b:pai.in' 
PRINT COS(20 / 180 * pi) 
END 


【 結 果 】 


・9396927 








(178)【 プ ログ ラム 例 】 


REM $INCLUDE: 'b:hai.in' イン クル ー ド ファ イル の と りこ と み 
PRINT a$(3)- 一 ーーーーーーーー 一 表示 
END 





【 結 果 】 
Fukuoka 


(179)【 プ ログ ラム 例 】 


REM $INCLUDE: 'b:kamoku.in' イン クル ー ド ファ イル の と り て こみ 
max = 0 ma を 0 と する . 
INPUT "科目 番号 ": x ーーーーーー 科 目 番号 の 入力 


FOR i = 1 TO 20 占 数 の 入力 と 最高 点 を max に 求め る 
INPUT a(⑪) 
IF max < a(i) THEN max = a(i) 

NEXT i 

PRINT b$(x) : "の 点数 " 20 人 分 の 点 の 表示 

FOR i =1 TO 20 
PRINT a(⑪): 

NEXT i 


PRINT _- 
PRINT "最高 点 ": max 一 最高 点 の 表示 
END 
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(180)【 プ ログ ラム 例 】 






































REM $STATIC a$ スタ ティ ッ ク 配 列 &$(6,2) の 宣言 

DIM a$(6, 2) 

FORi=0T05 配列 ヘ デ ー タ を 6 個 読み 込む 
READ a$(Gi, 0), a$(i, 1) | 

NEXT i 

FORj=0TO5 6 個 の デー タ の 表示 
PRINT a$G3, 0): " "ia$3, 1) | 

NEXT j 

ERASE a$ 配列 の 初期 化 

RESTORE 100 デー タ ポ イン タ を 移す 

FORk=0TO3 後半 人 つの デー タ 組 を 読み 込む 
READ a$(k, 0), a$(k, 1) ] 

NEXT k 

FORi=0103 4 デー タ 組 の 表示 
PRINT aSG, 0): " "jaSGi, 1) 本 

NEXT i 

END 


DATA れ 7 が れ 材 協 , 材 HE 1 も 97, 連 ヤ ッッ ツ 仔 , ト 97 
DATA 97 39 ゲ , 科 7 ドー ニッ ャ ゲル 初 7, 7 が す 7「 ロ 9, キョリ 
100 DATA 伯 9 ト 4 お 7, ャ タダ, ッ 21 が が 上 M ツ , 陣 紗 , 42 付 人 9 キリ 


【 結 果 】 


ヤマ ウチ カス ~ オ オオ サカ 
オオ トモ ユウ ッ ” キラ ウ シ ュ ウ 
ナカ ヤマ シン イチ トウ ホク 
コグ ヨウ ルッ ル ホッ カイ ト ~ー 
シフ ~ ヤ ハシ " メ ホク リク 
カワ カミ サフ "ロウ トウ キョ ウ 
イケ ヤマ ツトム チュウ ブフ ~ 
サコ P ウイ シン” ウ ョ グ 

ハ ~ 八 ~ ヒト シ トウ ホク 

ナカ ムラ イサ ム トウ キョ ウ 


(181)【 プ ログ ラム 例 】 





























REM $DYNAMIC a$ は ミッ ク 配 列 8$(10,2) の 宣言 

DIM a$(10, 2) 

FORi=0TO9 デー タ を 読み 込む 
READ a$i, 0), a$i, 1) 」 

NEXT i 

ERASE a$ 配列 の 消去 

REDIM a$(13, 2) 配列 の 再 宣言 

RESTORE デー タ ポ イン タ を も どす 

FORj=01T09 デー タ を 読み 込む 
READ a$(j, 0), a$(j, 1) | 

NEXT j 





INPUT a$(k, 0) 
INPUT a$(k, 1) 


FORk = 10 TO 12 | 10ー12 番目 の デー タ を 入力 する 
NEXT k 
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FOR i = 0 TO 12 0 一 12 番目 の デー タ を 表示 
PRINT a$Gi, 0): " "jaSGi, 1) ] 

NEXT i 

ERASE a$ 配列 の 消去 


END 

DATA 9 す が れ 材 者 , 材 は 197 もめ 9 ェ 9, 連 ャ yy ツ 人 9 槍 

DATA 7 39 ゲ , 科 7 ド ーッ 7 ャ ルル え 紛 , 罰 が 7 欄 , の 9 

100 DATA 位 ヤ 9 お 7 ャ 9 タゲ, 77, が が 上 トト 72, 連 17 付 ト 99 


【 結 果 】 
ヤマ ウチ カス ~ オ オオ サカ 
オオ トモ フウ シ ~ キュ ウシ ュ ウ ァ ウ チ ダ キョ ヨシ "以下 "トウ ホク "まで を 入力 の 例 


ナカ ヤマ シン イチ トウ ホク 
コウ ノ ヨウ シ ~ ホッ カイ ト ~ー 
シフ ~ ヤ ハシ トメ 。 ホク リク 
7 ミミ サフ テロ ウ トウ の ギ 当 ウ 
イケ ヤマ ツトム チュ ウフ ~ 
ナコ " ヤ が コタ 

ハ ~ 八 ~ 上 トシ トウ ホク 

ナカ ムラ イサ ム トウ キヨ ウ 
ウチ タ ” キヨ ジ ジコ ク 

ノ タ ^ ヒロ シ ホッ カイ ト ~- 
スカ ~ クニ オ トウ ホク 
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【 例 題 174】 再帰 プロ グラ ム 
整数 を 入力 し , その 値 の 階 乗 を 求め る プロ グラ ム を つく れ . 
た だ し , 階 乗 を 求め る 部 分 を TUNCTTON と し , 再帰 プロ グラ ム を 使う る $ の と する 











【 解 説 】 ⑥ 再 亡 プログ ラム を つく り ま す . 

③ 再帰 プロ グラ ム と は ある 処理 の 中 で 自分 自身 を 呼び 出し て くり 返し て いく プロ グラ ム で す . 当然 終 
了 の 条件 を うま くつ くっ て や る 必要 が あり ます . 

② 再帰 の 考え 方 の 例 と し て 階 乗 を 考え ます . 4 の 階 乗 (4! ) (! は 階 乗 の 意味 、BASTC の 単 精度 型 実 
数 を 意味 する 宣言 文字 で は あり ませ ん ) は 4*8*2*1 で す . し た が っ て 4*3! と な り ま す . 32! は 
3*2! と な り ま す . 2! は 2*1! と な り ま す . 

③ 一 般 的 C n の 階 乗 は n*(n-1)! で 求め られ る と と が わか り ま す . 

(④ mn! を 求め る た め に (n-1 ) の 階 乗 を 求め る プロ シ ジ ュ ア を 使い , (n-1 ) ! を 求め る た め に (n-2)! 
を 求め る プロ シ ジ ュ ア を 使い ます . この よう に 階 乗 を 求め る プロ シ ジ ュ ア を 自分 自身 の 中 で 呼ん で 使 
いま す . 

⑤ 次 の 形 で 再帰 を 使い ます . 

FUNCTTON kaijou (s%) 
TE 8S%=0O THEN 
ka1 jou=1 
ELSE 
kai jou=S%*kai jou( S%-1 ) 
ENDIF 
END FUNCTTORN 
人 入力 され た 値 が 8%ic 引 きわ た され ます . 例 と し て 4 と し ます . 最初 は 8% が 0 で は あり ませ ん か 
ら kai jou=4*kai jou(4-1) と な り ま す . 
と て と で gai jou(4-1 ) が 呼び 出さ れ ま す . S% が 5 と し て 呼び 出さ れ ま す . 最初 は 8% は 0 で は あ 
り ま せん か ら kai jou=2*kai jou( 8-1 ) で す -. 
と て と で kai jou(5-1 ) が 呼び 出さ れ ま す . S% が 2 と し て 呼び 出さ れ ま す . 最初 は 8% は 0 で は あ 
り ま せん か ら kai jou=2*kai jou( 2-1 ) で す . 
と と で jaai jou( る -1 ) が 呼び 出さ れ ま す . S% が 1 と し て 呼び 出さ れ ま す . 最初 は 8% は 0 で は あ 
り ま せん か ら kai jou=1*kai jou( 1-1 ) で す -. 
と と で rmai jou(1-1 ) が 呼び 出さ れ ま す . S% が 0 と し て 呼び 出さ れ ま す . S% が 0 で すか ら , 
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マヤ 所 ヤヤ 5 ヤヤ 55 うう ws ーー ャ ーーーーーーーーーーーーーーーー 一 
kai jou の 値 は 1 と し て プロ シ ジ ュ ア か ら 復 帰し ます . 
すなわち kai jou(1-1 ) は 1 で す . し た が っ て kai jou=1*kaijou(1-1) は 1 となり に 
と の 値 で 復帰 し ます . する と kai jou(2-1 ) は 1 で すか ら jkai jou=2*kai jou(2-1 ) に より こと 
れ は 2 で す . これ で 復帰 する と kai jou=5*kkai jou(8-1 ) に より と の 値 は 5*4 で 6 で す . し た 
が っ て これ で 復帰 する と kaijou=4*kaijou(4-1 ) に より , と の 値 は 4*6 で 24 で す . と の 値 が 
kaijou の 値 と な り メ イン に も どり ます . 











kai jou( 4 ) kaijou(4) の 値 は 4*5*2*1 と な る . 
再帰 呼び 出し 
kaijou(4) …… 4*kai jou( ら 3) kaijou (4) が 4* (2*2) で 復帰 
kaijou( 5) …… 5*kai jou( る ) kaijou(3) が 5*2 で 復帰 
kaijou(2)……… 2*kaijou(1 ) kai jou(2) が 2*1 で 復帰 
kaijou(1)………… 1*kai jou( 0 ) kaijou(1) が 1*1 で 復帰 
kaijou(0)… で ooo on kaijou(0) kaijou(0) が 1 と な っ て 復帰 
【 プ ログ ラム 例 】 
DECLARE FUNCTION kaijou (s% 
INPUT seisu% 一 ーー 一 ーー 一 一 一 ーーーーーー 一 一 整数 の 入力 
PRINT seisu%: "!=": kaijou(seisu%) kai jou を 呼び 出し 結果 を 表示 
END 
FUNCTION kaijou (s% め 階 乗 を 求め る FUNCTTON 
IF s%= 0 ES ks の と き kaijou を 1 と し て 終了 
kaijou = 1 
ELSE kai jou の 再帰 呼び 出し 
kaijou = s%* kaijou(s% - 本 
END IF 
END FUNCTION 
【 結 果 】 
? 5 5 を 入力 の 例 
5 != 120 
? 10 10 を 入力 の 例 
10 != 3628800 
2 生 15 を 入力 の 例 
15 != 1.307674E+12 
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ーー 
(演習 問題 」 


(182) 整数 を 1 つ 入力 し て , 1 か ら そ の 値 ま で 和 を 求め る プロ グラ ム を つく れ . 

(189) 整数 を る つ 入 力 し て , 整数 1 の 中 か ら 整 数 2 を と り 出す 順列 を 求め る プロ グラ ム を つく れ . 
た だ し , 順列 は 整数 1 の 階 乗 /( 整数 1- 整 数 2 ) の 階 乗 で ある . 

(184) 整数 を 2 つ 入 力 し て , 整数 1 の 中 か ら 整 数 2 を と り 出す 組合 わせ の 数 を 求め ある プロ グラ ム 


を つく れ . た だ し 、 組合 わせ 数 は 整数 1 の 階 乗 / (整数 1- 整 数 2) の 階 乗 / 整 数 々 の 階 乗 で 
ある . 


(182)【 プ ログ ラム 例 】 


DECLARE FUNCTION wa (s%) 
INPUT seisu% 
PRINT “1 7 ": seisu%i: "マイ /7 =": wa(seisu%) 





整数 の 入力 
表示 , wa を 呼び 出す 

















END 
FUNCTION wa (s% FUNCTION wa 
IF s% = 0 THEN | 終了 条件 
wa = 0 
ELSE 
wa = S% + wa(s% - 1) 再帰 呼び 出し 
END IF 
END FUNCTION 
【 結 果 】 
? 10 10 を 入力 の 例 
1 カラ 10 マテ ^ ノ ワ = 55 
? 25 25 を 入力 の 例 


1 カラ や 25 マデ クワ ョ 325 


(183)【 プ ログ ラム 例 】 
DECLARE FUNCTION junretsu (s% 











INPUT seisul1% | 整数 を 2 つ 入 力 

INPUT seisu2% 

ku1% = junretsu(seisu1%) 整数 seisu1 の 階 乗 

ku2% = junretsu(seisu1% - seisu2%) 一 一 一 整数 1- 整 数 seisu2 の 階 乗 
PRINT seisu1%: “/ 連 カ 7 ": seisu2% 結果 の 表示 

PRINT "オダ スゲェ ル 》 =": ku1% / km%ー 一 上 

END 

FUNCTION junretsu (s%) 階 乗 を 求め る FUNCTION 








IF s% = 0 THEN | 終了 条件 
junretsu = 1 
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ELSE 
junretsu = s%* junretsu(s% - 1) 一 一 再帰 呼び 出し 
END IF 
END FUNCTION 
【 結 果 】 
? 3 3 と る を 入力 の 例 
? 2 
3 ノ ナカ カラ 2 オト リタ ~ ス シバ ュ ン レツ = 6 
電 5 と る 3 を 入力 の 例 
? 3 
5 ノ ナ カ カラ 3 オト リタ ~ ス ジュ ン レ ツ = 60 
? 7 7 と 4 を 入力 の 例 
? 4 
7 ノ ナカ カラ 4 オト リタ ~ ス シュ ン レ ツ = 840 
? 10 10 と 8 を 入力 の 例 


? 8 
10 ノ ナカ カラ 8 オト リタ ~ ス シュ ン レ ツ = 12160 


【 プ ログ ラム 例 】 
DECLARE FUNCTION kumiawase (s%) 


INPUT seisu1% ーーーーb ぶ キーー デ 層 罰 ェ ョ ュ ム 罰 す と ュ ォ す ん 9 千 2 つ 入 力 
INPUT seisu2% 














ku1% = kumiawase(seisu1%) 整数 1 の 階 乗 
ku2% = kumiawase(seisu1% - seisu2%) (整数 1 一 整数 2) の 階 乗 
ku3% = kumiawase(seisu2%) 一 ーーー 一 ーーーーーーーー 整数 2 の 階 乗 
PRINT seisu1%: "/ 連 カ 7 ": seisu2% 結果 の 表示 
PRINT "オト リ ゲ ダス 79 セ =": ku1% / ku2% / ku3% 
END 
FUNCTION kumiawase (s%) ーーーーーーーーーーー 階 乗 を 求 め る FUNCT1ON 
IF s% = 0 THEN 一 一 ーーーーーーーーー 一 一 終了 条件 
kumiawase = 1 再帰 呼び 出し 
ELSE 


kumiawase = S% * kumiawase(s% - 1) 
END IF 
END FUNCTION 


【 結 果 】 
2 7 7 と る を 入力 の 例 
人 当 
7 ノ ナカ カラ 2 オ トリ タ ~ ス クミ アワ セ = 
5 6 と 5 を 入力 の 例 


や 
CS の 


6 ノ ナ カ カラ 3 オト リタ ~ ス クミ 了 ワ セ = 20 
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26 章 バー ジョ ン 4.5 で 追加 され た 命令 


SO0UND, SLREP. スト ッ プ ・ キ ー 割 込み 。 ヘル プ ・ キ ー 割 込み 





【 例 題 175】 音 (Ver.4.5 以 降 の 機能 ) 
ドレ ミ フ ァ ソ ラ シ ド を 鳴ら りす プロ グラ ム を つく れ . 











【 解 説 】 〇 SO0ND は 指定 し た 周波 数 の 音 を 指定 し た 長 さだ け 鳴 らし ます -. 
① SO0UND x, y は 周波 数 x の 音 を y 時 間 の 間 だ け 鳴 らし ます . 
SUUND x, y 


し 0 か ら 65,535 の 値 


0 は オフ で 18.2 で 1 秒 と な る . 


周波 数 
57 か ら 32,761 まで の 値 
②③ 音階 を つく っ て み ま す . 
ドレ ミ フ ァ ソ ラ シ ド は 下 の ド ド を 1, 上 の ド を 2 と し て その 間 を 下 の よ う KC 分 けた も ゃ る の で す . 下 の 
ド は 周波 数 で 約 520 ヘル ツ で す . し た が っ て , x を 520,y を 9.1 と する と 下 の ド を 0.5 秘 鳴 らし 
ます : 





ド レ ミ ツ 錠 じ 4 0 ン 4 ジア ド 
前 2 / る 29 2 





③⑬③ と の 機能 は 9801E/E/M/U で は 使え ませ ん . 
【 プロ グラ ム 例 】 


メメ = 520: y = 9.1 
FOR i = 1 TO 8 





READ x 音階 を 示す 
SOUND XX * xx,。 マーーーー ーー 周波 数 と 0.5 秒 を 示す - 
NEXT i 


END 
DATA 1,1.1225,1.2599,1.3348 
DATA 1.4983,1.6818,1.8877,2 


【 結 果 】 
ドラ ミ フ ァ ソ ラ シ ド が 鳴り ます . 





音階 デー タ 
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【 例題 176】 1 時 停止 (Ver.4.5 以降 の 機能 ) 

?1 ビョウ ゴ ニ ヒ ョ ウジ "と 表示 し て , 1 秒 後 C 1、 "2 ビョウ ゴ ニ ヒ ョ ウジ "と 表示 し て 2 秒 
後 C 2 を 表示 , 以下 同様 に "5 ビョウ ゴ ニ ヒ ョ ウジ "と 表示 し て 5 秒 後に 5 と 表示 する プロ グラ 
ム を つく れ . 











【 解 説 】 〇 SLEEP は 1 時 停止 し ます . 
① SLEEPx は * 秒 問 コ ンピュータ を 一 時 停止 し ます . 再開 する 条件 は 次 の と お り で す . * が 省略 
され る と 再開 の 条件 は 次 の (2) と (3) で す . 
(1) x 秒 の 経過 . 
(2) 何 か キ ー が お され た と き .- 
(3) 再開 の 割込み 処理 が 行わ れ た と き . 











【 プ ログ ラム 例 】 
CLS = 
FOR i = 1 TO 5 1~-5 の くり 返し 
PRTINT 5 は WETB ウ ココ "5 モヨ 9 ジテ " 1 ビョウ ゴ ニ ヒ ョ ウジ の 表示 
SLEEP i 1 秒 停止 
PRINT i 1 の 表示 
NEXT i 
END 
【 結 果 】 
1 ヒ * ヨ ウ コ ~ ニ ヒ ヨ ウ シ ~ 
1 
2 ヒョウ ゴ " ニ ヒョウ シ ~ 
2 
3 ヒバ ョ ヨウ コ *^ こ ヒ ョ ヨウ シ ~ 
3 
4 ヒ ^~ ョ ヨウ コ ~ こ ヒ ヨ ウ シ ~ 
4 
5 ヒ ~ ョ ウ コ ~ こ ヒ ョ ヨウ シ ~ 





【 例題 177】 スト ッ プ キー 割込み (Ver.4.5 以降 の 機能 ) 
1~-1000 の くり 返し を FOR-RNEXT 文 で みき, その間 に スト ッ プ キー が お され た ら そ の 時 
の i を 表示 する プロ グラ ム を つく れ . 











【 解 説 】 〇 スト ッ プ キー に よる 割込み を し ます . 
① 次 の 形 で スト ッ プ キー 割込み を し ます -. 
スト ッ プ ・ キ ー を 示す AI 
ーー 
0N KEY(30) GOSUB ラベ ル ーー 割込み 
KEY(30) OR 割込み オン 
) 


SB 
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ーー ギュ ー ペ ペー テテ ma メア ュ シ ペー ニッ ーー ュー ニー ニニ モー ニキ ーーam= ュ ニニ テー see キー ーー ペー ニー ニュー ニャー ニュ ニュ ーー ーーー っ 


END 


ラベ ル 』 一 ーーーーー- 割込み 処理 ルー チン 
ーー 
RRTURN 


【 プ ログ ラム 例 】 


ON KEY(30) GOSUB stopkeyー 一 一 - ス トップ ・ キ ー 割 込み 
KEY(30) ON 割込み オン 

CLS 

FOR i = 1 TO 10000: NEXT ュ iーーー くり 返し 

END 

Stopkey: 割込み 処理 ルー チン 
PRINT ii 

RETURN 


【 結 果 】 


2832 5086 8077 途中 で 3 回 .STOP) キー を お し た 例 

















【 例題 178】 ヘル プ キ ー 割 込み (Ver.4.5 以降 の 機能 ) 
1-ー1000 の くり 返し を FOR っ NEXT 文 で か き 、 その 間 に ヘ ルプ キー が お され た ら , その と 
き の 値 と その 平方 根 を 表示 する プロ グラ ム を つく れ . 








【 解 説 】 〇 ヘル プ キ ー に よる 割込み を し ます . 
① 次 の 形 で ヘル プ ・ キ ー 割 込み を し ます -. 
ヘル プ ・ キ ー を 示す 「 割込み 処理 サブ ルー チン 名 

















ON KEY(31) GOSUB ラベ ル ーーーーーー-- 割込み 
KEY(31) ON 割込み オン 
7 
END 
ラベ ル j 一 一 一 ーー 割込み 処理 ルー チン 
7 
RETURN 
【 プ ログ ラム 例 】 
ON KEY(31) GOSUB helpkeyーーーーー ヘ ルプ キー 割込み 
KEY(31) ON 割込み オン 
CLS 
FOR i = 1 TO 10000: NEXT i くり 返し 
END 
helpkey: 割込み 処理 
PRINT ii SQR(i): 
RETURN 
【 結 果 】 


2683 51.79768 5033 70.94364 9014 94.94209 53 回 [HELPJ キー を お し た 例 . 
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IN 加 和 衝 有 UDGDO て 〇 ポ 〇 エ HI 理 ル ポリ ルリ II リ II ルポ ロリ !F リ 11F 和 F 昌 F ぎ シ ゅ ゆ ) ゅ ラド 和 ピ 利 昌 昌 湯 昌 
バー ジョ ン 4 .5 で は 環境 変数 QBGRPNEC=YES の セッ ト (A>SET QBGRPNEC=YES ) に より , グラ 
フィ ッ ク 画 面 は MS-DOS に も ど し て も クリ ア し ませ ん . 
バー ジョ ン 4.2 で は クリ ア し ます の で グラ フィ ッ ク 画 面 は MS-DOS に も どす と き に 消え て し まい ま 
す . 


1 章 直線 , 四角形 , 円 , 椿 円 , 扇形 , 点 


SCRERN, CLS, LINE、 LTNE STEP、 LTNE- B (F) CIRCLE, 
PSRT、 PRESRT 





【 例 題 1】 直線 の 表示 
画面 左上 か ら 右 下 へ 斜め 斜線 を か く プ ログ ラム を つく れ . 











【 解 説 】 ⑥ 直線 を か きま す -. 
① SCREEN 文 は 画面 の モー ド を 設定 し ます -. 
③) SCREEN 0 また は SCREEN 88 は 横 640 ドッ ト * 縦 400 ドッ ト の グラ フィ ッ ク 画 面 と テキ ス 
ト 画面 を 2 頁 用 意 し ます . (PC9801/U の 場合 は 1 頁 ) モー ド は 次 の よう な も の が あり ます . 





モー ド 種 類 グラ フィ ッ ク 解 像 度 
81 テキ スト (80 桁 *25 桁 ) 

84 スー パー イン ポー ズ 640*200 

87 グラ フィ ッ ク 640*400 

88, 0 スー パー イン ポー ズ 640*400 


③ CLS 0 は グラ フィ ッ ク 画 面 を クリ アー し ます . 
④ 直線 は 下図 の 座標 系 の 中 で 指定 され た 2 つの 位置 を 直線 で むす び ま す . 
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(0.0)(1.0)(2.0)… (638,0)(639,0) 
0.1)1 ・・・・・ PD 
軸 和 9 ・ |(639.1) 
(20.50) LINE(20,50 )-(100,80) 
| 
(100.80) 始点 の ェ 座 標 終点 の ェ 座 標 
始点 の ゞ 座標 終点 の ゞ 座標 
ロ LINE(100,80)-(20,50) で も ゃ 同じ 
(0⑩,398)| ・. 、、 |(639.398) ( が -( ) で も 同 
(0,399 ) (1,399) (638,399 ) (639,399) 


⑮⑧ グラ フィ ッ ク ポ イン タ が か き 終 っ た (100, 80) に お か れ ま す . 
【 プ ログ ラム 例 】 


SCREEN 0 一 一 ーーーーーーーーー 画面 設定 
CLS 0 一 一 一 一 ーーーーーーーーー クリ ア 
LINE (20, 50)-(100, 80) 直線 
END 


【 結 果 】 








【 例 題 3】 連続 し た 直線 
(20,50 ) と (100,80) と (100,110) を むす び , 次 に (100,110) か ら (-20,+50 ) の 点 
と そ と か ら (+50 ,+20 ) の 点 を むす び , 最後 に そこ か ら (+50,0 ) の 点 を むす ぶ 図 を つく る プロ 


グラ ム を も つく れ . 








【 解 説 】 〇 連続 し た 直線 を か きま す . 絶対 座標 と 相対 座標 の 表わし 方 を 示し ます . 
① 次 の 形 で (20, 50) と (100, 80) お よび (100, 110) を 直線 で 結び ます . 各々 の 点 の 座標 


は 絶対 座標 値 で 表わさ れ て いま す -. 
LINE(20,50)-(100,80 ) (20,50 ) と (100,80 ) を 直線 で 結ぶ 
LINE-(100 ,110 ) 現在 グラ フィ ッ ク ポ イン タ の ある (100, 80) と (100,110 ) 
を 結ぶ 
(20.50) 
(100,80) 
(100.110) 


③ 現在 の グラ フィ ッ ク ポ イン タ を 基準 に し て 相対 値 を 与え て 直線 を ひく と と が で きま す 


LINE STEP(-20 。30) -STEP(50 ,20 ) 一 一 現在 の グラ フィ ッ ク ポ イン タ か ら 
方 向 -20, y 方 向 +30 の 位置 と , 
そこ と か ら * 方 向 +50. y 方 向 +20 

の 位置 を わ むすぶ . 
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エ LINE-STEP( 50 ,0) さら に そ と か ら * 方向 +50,、 
方 向 0 の 位置 を むす ぶ 


P1 (100.110) 現在 の グラ フィ ッ ク ポ イン タ の 位置 
P1 か ら 5 
x 方 向 一 20 2 き 
。 方 向 +30 へ 、P3 P2 か ら ェ 方 向 十 50, 9 方向 士 20 


P4 P3 か ら ェ 方 向 十 50. ぁ 方 向 0 


【 プ ログ ラム 例 】 


SCEEEN 0 

CLS 0 

LINE (20, 50)-(100, 80) 

LINE -(100, 110) 

LINE STEP(-20, 30)-STEP(50, 20) 
LINE -STEP(50, 0) 

END 


【 結 果 】 





【 例 題 3】 親 
四角 形 と 、 中 を 塗り つぶ し た 四角 形 を か く プ ログ ラム を つく れ - 











【 解 説 】 〇 箱 と 中 を 塗り つぶ し た 四角 形 を か きま す . 
① 次 の 形 で 箱 (四角 形 ) を か きま す . 
LINE(20,50)-(100,80 ) , ,B 


LINE(20,50 )-(100,80 ) , ,B 
(20,50 ) と (100,80) を 対 角 と する 四角 . グラ フィ ッ ク ポ イン タ は (100,80 ) に お か れ ま す . 
LINE(100.80)-(20,50 ) ,,B で $ 同 じ 

00.80) TITNE(100、 50 )-(20, 80),,B で も る 同じ | グラ フィ ッ ク ポ イン タ は 後 の 点 と な り ま す . 
LINE(20, 80)-(100, 50 ) , ,B で $ 同 じ 


(20、50 ) 





③ 方向 の 増分 と 方 向 の 増分 が 同じ とき 正方 向 と な り ま す -. 
LINE(20,50)-(100,130 ) , ,B は 正方 形 と な り ま す . 


(20.50 ) 


(100.130 ) 
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③ 箱 の 場合 も STEP を 使っ て , 位置 を 相対 的 に 与え を る と と が で きま す . また B を BE と する と 箱 の 


中 を 塗り つぶ し ます . 


LINE STEP( -20,80 ) -STEP( 50,20 ) , , BE 





グラ フィ ッ ク ポ イン タ (100,.80) に ある 


BF で 中 を 塗り つぶ す 
(100,80 ) か ら x 方向 -20、 方 向 +30 の 点 と そこ か ら 
* 方 向 +50, ゞ 方 向 +20 の 点 を 対 角 と する 箱 を か き 中 を 
塗り ます 
【 プ ログ ラム 例 】 


SCREEN 0 
CLS 0 


LINE (20, 50)-(100, 80), , B 
LINE STEP(-20, 30)-STEP(50, 20), , BF 
END 


【 結 果 】 
ココ 
【 例 題 4】 ライ ン の 指定 








点線 と 1 点 鎖線 で 四角 形 を か く プ ログ ラム を つく れ . 


【 解 説 】 





⑥ ライ ン オ プシ ョ ン で 線 の 種類 を 指定 で きま す . 
① LINE 文 の 3 番目 の オプ ショ ン に ライ ンス タイ ル を つけ る と と が で きま す . ライ ンス タイ ル は 次 
の よう に 決め ます . 


INE(20,100)-(100,130 ) , ,B,&HFE18 の 例 


ライ ンス タイ ルレ イン ルイ 











10 半 ) 義 0! 





1 1 1 1 1 0 0 0 1 1 0 0 0 


16 ビッ ト を 4 ビッ ト ず つ に 区 切っ て 16 進数 で 表わす 
と の 例 で は & HFF18 と な る . この パタ ー ン の くり 返し と 
| | な る . し た が っ て 1 点 鎖線 と な る . 


⑱ 点線 は 次 の よう に な り ま す 


と 4 


1 章 直線 , 四角 形 , 円 , 棒 円 , 扇形 , 点 





点 線 の 例 


| TTT 区 TTT] 大 きい 原 
SN 中 位 の 上 組 
四 臣 匠 ] 匠 攻 ? 盟 」 細か い 上 線 























【 プ ログ ラム 例 】. 
SCREEN 0 
CLS 0 
LINE (20, 50)-(100, 80), , B, &HFOFO 


LINE (20, 100)-(100, 130), , B, &HFF18 
END 





【 例 題 5】 円 
中 心 を (100, 100) と し , 半径 を 40 と する 円 を か く プ ログ ラム を つく れ . 





【 解 説 】 ⑨ 円 を か きま す . 

① 円 は 次 の よう に か きま す . 
6006M6NOy 100 ) , 40 
由 中 心 の 座標 半径 

中 心 の Y 座標 








【 プ ログ ラム 例 】 


SCREEN 0 

CLS 0 

CIRCLE (100, 100), 40 
END 


【 結 果 】 
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【 例 題 6】 半 円 と 中 心 位置 を 相対 指定 
中 心 を (100, 100), 半径 を 40 と する 上 半分 の 半 円 と , 中 心 を 方 向 に c+200 し た 位置 に 
半径 50 の 円 を か く プ ログ ラム を つく れ . 











【 解 説 】 〇 半 円 と 中 心 を 相対 指定 し ます . 
① 次 の 形 で 半 円 を か きま す . 
CTRCLB(100, 100) ,40,,0,8.14159 
中 心 座標 半径 開始 点 終了 点 
| 
0 か ら ァ まで 反 時 計 方 向 で か く 





旧 
開始 点 と 終了 点 の 表わし 方 
0~-2 ラジ アン で 表わす . 
0 表示 は 反 時 計 方 向 
2 ァ 
3r 


③ 中 心 座標 は 相対 的 に 表わす と と が で きま す . 
CIRCLE STRP(200.0),50 
グラ フィ ッ ク ポ イン タ (本 例 で は 100, 100) か ら 
* 方 向 に +200。 方 向 は 0 の 点 を 中 心 と する . 
円 の グラ フィ ッ ク ポ イン タ は 中 心 点 で す . 


【 プ ログ ラム 例 】 


SCREEN 0 

CLS 0 

CIRCLE (100, 100), 40, , 0, 3.14159 
CIRCLE STEP(200, 0), 50 

END 


【 結 果 】 





【 例 題 7】 扇形 
結果 の 扇形 を か く プ ログ ラム を つく れ . 














【 解 説 】 〇 扇形 を か きま す . 
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① 開始 点 と 終了 点 に マイ ナス を つけ る と 中 心 と 開始 点 , 中 心 と 終了 点 を 直線 で 結び ます . し た が っ て 
扇形 と な り ま す . 
CIRCLE (100。 100) 。 40, , -.5, -2 


終了 点 
2 開始 点 0.5 
ー.5 に より 直線 で むす ぶ 
ー2 に より 


直 株 で すす ぶ (jo0.100) 
中心 
【 プ ログ ラム 例 】 
SCREEN 0 
CLS 0 


CIRCLE (100, 100), 40, , -.5, -2 
END 


【 結 果 】 





【 例 題 8】 棒 円 
結果 の 椿 円 を 2 つか く プ ログ ラム を つく れ . 











【 解 説 】 〇 椿 円 を か きま す . 
① CIRCTLE 文 の 最後 の オプ ショ ン の 値 で 円 を 変形 し て 椿 円 と し ます . 
CTRCLE STEP(200,0) ,50,,,,・5 





(0,0) か ら の 相対 指定 | 横長 の 析 由 1 未満 の と き 横長 の 和 L 円 1 が 円 
長 内 半径 
CIRCLE STEP(200,0),50,,。,1.5 
(200,0 ) か ら の | 縦長 の 棒 円 1 を と える と き 縦 長 の 秩 円 
相対 指定 長 内 半径 
【 ブ プロ グラ ム 例 】 
SCREEN 0 
CLS 0 
CIRCLE (200, 100), 50, , , , .5 
CIRCLE STEP(200, 0), 50, , , , 1.5 
END 
【 結 果 】 
て ) | 
Se ラグ N 間 
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【 例題 9】 ドッ ト の 表示 
1 ドッ ト を 表示 する と と の くり 返し で 点線 を か く プ ログ ラム を つく れ . 











【 解 説 】 〇 ドッ ト の 表示 を し ます . 

① PSRET は 1 ドッ ト を 表示 し ます . 表示 位置 は (x,y ) で 指定 し ます . 

⑧ 10 ドッ ト 行 目 を 指定 し て , 3 を 1 か ら 100 まで 増分 を 6 で くり 返し , 3, i+1, 3i+2 を 表示 し ,。 
1+5, i+4。 1+5 を 非 表示 と する と 点線 と な り ま す . 


12345678 9101112131415161718192021 … 919293 979899 
10 行 目 > = ・・・ es se s EE 9 ee ・・・ 
1 1 1 
PSETG,10) | -PSET(i+2.10)PSET(i.10) 
PSET(i+2, 10) 
PSETGi+1.10) PSETG+1.10) 


『 デ 1 1 三 13 


【 プ ログ ラム 例 】 


SCREEN 0 

CLS 0 

FOR i = 1 10 100 STEP 6 
PSET Gi, 10) 
PSET G+ 1, 10) 
PSET (i+ 2, 10) 

NEXT i 

END 


【 結 果 】 





【 例 題 10】 ドッ ト の 表示 を 非 表 示 と する 
横線 を 実線 で か き , 次 に それ を 点線 に か える プロ グラ ム を つく れ 





【 解 説 】 @⑥ 表示 され て いる ドッ ト を 非 表 示 と し ます . 
① PRESRET(x,y) で (x,y) の ドッ ト を 非 表示 と し ます . 
⑧③ (1,10) と (100,10) を むす ょ ぶ 実線 を か き , 3 ドッ ト ず つっ 消去 する と 点線 と な り ま す . 


1234567 8 9101112131415161718 949596979899100 











10 生 上 b 芝 wsmsop3 実線 直線 
3 ドッ ト ず っ 消去 
1 1 1 1 1 
PSET(i.10) PSBT(i+2.10) PSET 
(1, +10) 四 
PSET(i+1, 10) 








1 人 王 | PSETGi+1.10) 
エーーーーー 
PSETGi+2. 10) 


1 王 13 





ーー マー 


【 プ ログ ラム 例 】 


SCREEN 0 

CLS 0 

LINE (1, 10)-(100, 10) 

FORi=11T0O100 STEP6 
PRESET G⑪, 10) 
PRESET (i + 1, 10) 
PRESET (1 + 2, 10) 


ーー ツー ンー キー で 


1 章 直線 , 四角 形 , 円 , 椿 円 , 扇形 , 点 


で ーー ニー ンー= キ デー モー ニー ニュ ペー ュー ンー 
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NEXT i 

END 
【 結 果 】 
(1) ひし 形 を か く プ ログ ラム を つく れ . 
(2) 結果 の 図 を つく る プロ グラ ム を つく れ . 
(3) 点線 の 円 を みく プロ グラ ム を つく れ . 
(4) 1 点 鎖 線 の 円 を か く プ ログ ラム を つく れ . 
(5) 結果 の 図 を つく る プロ グラ ム を つく れ . 
(6) 結果 の 図 を つく る プロ グラ ム を つく れ . 
(7?) 中 心 を (300, 200) と し , 半径 を 20, 


くれ 


40, 60、 80, 100 の 同心 円 \ み か く プ ログ ラム を つ 


(8) 結果 の 図 を か く プ ログ ラム を つく れ . 
[ 解 答 」 
(1) 【 ブ ログ ラム 例 】 
SCREEN 0 
CLS 0 


LINE (100, 100)-(130, 150) 
LINE -(100, 200) 

LINE -(70, 150) 

LINE -(100, 100) 

END 


【 結 果 】 
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(2) 【 プ ログ ラム 例 】 


SCREEN 0 

CLS 0 

LINE (100, 100)-(150, 150), , B 

CIRCLE (100, 150), 50, , 0, 3.14159 / 2 

CIRCLE (150, 100), 50, , 3.14159, 1.5 * 3.14159 
END 


(85) 【 プ ログ ラム 例 】 


SCREEN 0 

CLS 0 

FORi=0T0O2*2.94159 STEP .4 
CIRCLE (100, 150), 40, , ii i+.2 

NEXT i 

END 


(4) 【 プ ログ ラム 例 】 


SCREEN 0 
CLS 0 
FORi=0102*2.89159 STEP .5 
CIRCLE (100, 150), 40., i ii+.2 
CIRCLE (100, 150), 40., i+.35, ij+.35 
NEXT i 
END 


(5) 【 プ ログ ラム 例 】 


SCREEN 0 
CLS 0 
FORi=1T0O15 


LINE (Gi*20, i*20)-(⑪*20+10, i*20+10), 


NEXT i 
END 


【 結 果 】 


と 7/ 


oo 





【 結 果 】 


【 結 果 】 


/ 


1 1 


1 章 直線 , 四角 形 , 円 , 椿 円 , 房 形 , 点 









(6) 【 プ ログ ラム 例 】 【 結 果 】 
SCREEN 0 こ 
CLS 0 ジン es 
FORi=11020 Zr 
CIRCLE (300, 200), 100, , , , . 2#i クー 
NEXT i NL 軒 
END NN 


(?) 【 プ ログ ラム 例 】 


SCREEN 0 

CLS 0 

FOR i = 20 10 100 STEP 20 半径 を 20、40, 60、80, 100 と し て 同心 円 を 表示 
CIRCLE (300, 200), i 

NEXT i 

END 


【 結 果 】 





(8) 【 プ ログ ラム 例 】 








SCREEN 0 
CLS 0 
CIRCLE (300, 200), 100, , -3.14159 * 1 / 8, -3.14159 * 7 / 8-- 一 ーー 一 扇形 
CIRCLE (300, 200), 20, , -2 * 3.14159* 9 / 16, -2* 3.14159 * 15 / 16 一 扇形 
CIRCLE (300, 150), 20 円 

塗り つぶ し 








PAINT (300, 150), 7, 7 
END 


【 結 果 】 


う ダ ア 
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2 章 塗り つぶ し : タ イル パタ ー ン 


PAINT 





【 例 題 11】 塗り つぶ し 
三角 形 を 塗り つぶす プロ グラ ム を つく れ . 














【 解 説 】 ⑨ 塗り つぶ し を し ます . 
① 閉じ た 境界 内 を 塗り つぶ す と と が で きま す . 
PATNT(x,y) で (x,y) を 含む 閉じ た 境界 内 を 塗り つぶ し ます . 


:PATINT(x.y) 食 、 
PATNT(x.y) ト qa 


⑨⑧ 閉じ て いな いと き は 全体 を 塗り つぶ し ます . 


ググ っ PAINT(x.y) 全体 が ぬり つぶ され る 
E/ 


【 プ ログ ラム 例 】 


SCREEN 0 

CLS 0 

LINE (50, 10)-STEP(20, 30) 
LINE -STEP(-40, 0) 

LINE -STEP(20, -30) 

PAINT (50, 20) 

END 


【 結 果 】 


人 る 





【 例 題 12】 タイ ル パ タ ー ン 
結果 の 5 種類 の タイ ル パ タ ー ン で 5 つの 長方形 を うめ る プロ グラ ム を つく れ . 











と と 4 


2 章 塗り つぶ し : タイ ル パ タ ー ン 





【 解 説 】 〇 タイ ル パ タ ー ン を つく り , その パタ ー ン で 箱 を 埋め ます 
① タイ ル パ タ ー ン は 次 の よう に つく り ま す 















































[ | ] CHR$(&HO )+CHR$(&HO )+CHR$(&HO )+CHR$( &HFT ) 
| | 下 の 4 つの 8 ピク セル の 状態 の 和 が 1 行 8 ピク セル の 状態 
T T T ] 
Blo 0 0|0|0|0|0|0O|  &HO0O (B( 青 ) の 8 の ピク セル の 状態) 
[ | 1 四 T | | ] 
G19191919191919|9 &H00  (G( 緑 ) の 8 の ピク セル の 状態 ) 
| 訂 重 
R ololo 0 oo 0 | 0 |  &HO0 (R( 赤 ) の 8 の ピク セル の 状態 ) 
本 
輝度 | 1|1|1|1l1illllll &HFTE  ( 輝 度 の 8 の ピク セル の 状態) 
較 誠 | 


























③ 2 行 の パタ ー ン を つく る と き は 1 行 分 の CHR$ の 和 の 後に 4 つの CHR$ の 和 を 加え ます 
⑬ 5 行 以上 の 場合 も 同様 に 1 行 に つき 4 つの CHR$ の 和 を つなぎ ます . 





【 プ ログ ラム 例 】 


SCREEN 0 
CLS 0 


FORi=1105 5 つの 四角 形 を 表示 
LINE (i * 100, 100)-(i * 100 + 50, 250), , B 
NEXT i 


t1$ = CHRS(&HFO) + CHR$S(&HFO) + CHR$(&HFO) + CHRS(&HFF)- タ イル パタ ー ン 1 


























PAINT (120, 120), t1$, 7 タイ ル パ タ ー ン 1 で 左 の 箱 を うめ る 

t2$ = CHRS(&HO) + CHRS(&HO) + CHRS(&HFO) + CHRS(&HFF) 一 タイ ル パ タ ー ン 2 

PAINT (220, 120), t2$, 7 タイ ル パ タ ー ン 2 で 左 か ら 2 番目 の 箱 を うめ る 
t3$ = CHR$(&HFF) + CHRS(&HO) + CHR$(&HO) + CHR$(&HFF) 一 タイ ル パ タ ー ン 5 

PAINT (320, 120), t3$, 7 タイ ル パ タ ー ン 5 で 真中 の 箱 を うめ る 

t4$ = CHR$(&HO) + CHR$(&HO) + CHRS(&HO) + CHRS(&HO)ーーー タ イル パタ ー ン 4 

t5$ = t1$ + {4$ タイ ル パ タ ー ン 5 

PAINT (420, 120), t5$, 7 タイ ル パ タ ー ン 5 で 右 か ら 2 番目 の 箱 を うめ る 
t6$ = t5$+ 人 t4$+ (4$ + {4$ タイ ル パ タ ー ン 6 

PAINT (520, 120), t6$, 7 タイ ル パ タ ー ン 6 で 右側 の 箱 を うめ る 

END 
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(③) 
(10) 
(11) 


(10) 


| 演習 問題 」 


結果 の 図 を つく る プロ グラ ム を つく れ . 
結果 の 図 を つく る プロ グラ ム を つく れ . 
結果 の 5 つの パタ ー ン で 円 を ぬる プロ グラ ム を つく れ . 


[ 解 菩 ] 


【 ブ プロ グラ ム 例 】 


SCREEN 0 
CLS 0 
FORi=11010 
CIRCLE (300, 200), i* 10 
IF G MOD 2) = 0 THEN PAINT (300+i*10 -5, 200), 7. 7 
NEXT i 
END 


【 結 果 】 





【 プ ログ ラム 例 】 


SCREEN 0 

CLS 0 

LINE 100, 100)-(150, 150), , B 

CIRCLE (100, 150), 50, , 0, 3.14159 / 2 

CIRCLE (150, 100), 50, , 3.14159, 1.5 * 3.14159 
PAINT (125, 125), 7, 7 

END 


【 結 果 】 


、 パ 


し と と 4 


2 章 塗り つぶ し : タイ ル パ タ ー ン 


マー" や m の ma ニー ンー ニャー = ーー ニャ ーーー ャ ーー ee パニ ーー ニー ュー ター ニャ ニニ 


(11) 【 プ ログ ラム 例 】 



























































SCREEN 0 
CLS 0 
FORi=1T05 5 つの 円 を か く 
CIRCLE (Gi * 100, 100), 40 
NEXT i 
t1$ = CHRS(&HFF) + CHR$(&HFF) + CHRS(&HFF) + CHRS(&HFF) タイ ル パ タ ー ン 1 
PAINT (100, 100), t1$, 7 タイ ル パ タ ー ン 1 で 円 を ぬる 
t2$ = CHR$(&HFF) + CHRS(&HO) + CHRS(&HFF) + CHRS(&HFF) タイ ル パ タ ー ン 2 
PAINT (200, 100), t2$, 7 タイ ル パ タ ー ン 2 で 円 を め る 
t3$ = CHRS(&HCC) + CHRS(&HCC) + CHRS(&HCC) + CHRS(&HFF) タイ ル パ タ ー ン 5 
PAINT (300, 100), t3$, 7 タイ ル パ タ ー ン 8 で 円 を ぬる 
t4$ = CHRS(&HO) + CHR$(&HO) + CHR$(&HO) + CHR$(&HO) 一 ーーーーー タイ ル パ タ ー ン 4 
t5$5 = t1$+ t1$ + 14$ + 4$ タイ ル パ タ ー ン 5 
PAINT (400, 100), t5$, 7 タイ ル パ タ ー ン 5 で 円 を ぬる 
t6$ = t1$+ {3$ + {4$ タイ ル パ タ ー ン 6 
PAINT (500, 100), t6$, 7 タイ ル パ タ ー ン 6 で 円 を め る 
END 
【 結 果 】 


白 白 白 


の @⑨ 持 き 9 


と 】 
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3 章 関数 式 の 曲線 





【 例 題 13】 関数 式 の 表示 
ッ =2x* の 曲線 を x を -100 か ら +100 まで の 値 と し た と き の ゞ の 値 の 曲線 を 表示 する プロ グ 
ラム を つく れ . 











【 解 説 】 〇 y=2x* の 関数 式 の 曲線 を 表示 し ます . 
① y=2x* の 式 で *g を -100 か ら 100 まで と する と ゞ の 値 は 最大 が 20, 000、 最小 が 0 の 曲線 と な 
り ま す . 





9 デー2 デ の 日 線 


⑬ と の 曲線 を 640*400 ドッ ト の 画面 に 表示 する と と を 考え ます . 

⑬③ まず 方向 の -100 か ら 100 は 画面 上 で は 填 200 すなわち ,。 100 ドッ ト か ら 3200 ドッ ト と し ま 
す . 

④ 方 向 の 最大 40.000 は 200 ドッ ト K 縮 小 し ます . 

⑤ 方 向 の 0 の 位置 は 画面 の 300 ドッ ト 目 と し ます . な お , 画面 は xy 方 向 は 左上 が ( 0,0 ) で 右 下 
が (639 ,599) で すか ら す 方 向 は 普通 の 座標 系 と は 方 向 が 逆 で す . 画面 は ヲ の プラ ス が 下 , y の マ 
イナ ス が 上 と な っ て いま す . 

⑯ し た が っ て , ゞ =Zx* は 画面 上 で は 次 の よう に な り ま す . 


300 ド ッ ト を -100-100 と する と 
=300-2x*/100 ドッ ト と な る 
* の ドッ ト 位 置 は +200 し て 
100 一 300 ドッ ト 目 と な る 









(200.300) (200.300) 
(100.300 ) 





⑦ 実際 の 表示 を し ます . 
マニ 2xr” を fna(x ) ニ 2*x* ネ と 定義 し ます -. 
i を -100 か ら 99 まで くり 返し 
ェ ド ッ ト を i+100 と し まず 
y ドッ ト を 500-fna(i)/100 と れ が が 1 の と き の y の 値 で す . 
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3 章 関数 式 の 曲線 








マー ツー ドー 


ェ ドット を (i+1)+100 と し ます . 
y ド ッ ト を 800-fna(i+1)/100 と し ます . これ が * が ュ i+1 の と き の ゞ の 値 で す . 
と の 2 点 を むす び ま す . と の くり 返し で 曲線 を か きま す . 

デニー100 の と き の ゅ の 値 
ッッ デ この 間 を 直線 で むす . ぶ 
ーー99 の と き の ぁ の 値 


ング この 間 を 直線 で むす . ぶ 
ー98 の と き の ぁ の 値 











ーー ダー H 
この 間 を 直線 で むす ぶ 
ーー9 デ 97 の と き の ぁ の 値 


⑧ 表示 の 仕方 と し て は , x を -100 と し た と き の y の 値 の 位置 に グラ フィ ッ ク ポ イン タ を 移し , 次 
(C,、 x を -99, -98,、…0, …100 と 変化 させ て y の 値 を 求め その 位置 を 次 々 に 結ぶ 方 法 $ あ り ま 
す . 

PSRET(100 ,300-fna(-100)/100) 
FOR i=-100 TO 100 
メニ ュ 1+200 
ッ =300-fna(i)/100 
LINE-(x。Y) 
NEXT i 
【 プ ログ ラム 例 】 


SCREEN 0 

CLS 0 

DEF fna (xX) = 2 ま Xx*X 

LINE (50, 300)-(350, 300) 

LINE (200, 10)-(200, 350) 

FOR i = -100 10 99 

y = 300 - fna(i) / 100 
yy = 300 - fna(i + 1) / 100 
LINE (i + 200, y)-(⑪ + 201, yy) 

NEXT i 

END 


【 結 果 】 








3 ダグ Z 


中 グラ フィ ッ ク 編 











【 例 題 14】 関数 式 の 図 
SIN(x) の カー ブ を 表示 する プロ グラ ム を つく れ . 








【 解 説 】 〇 SIN(x) の 式 の 図 を か きま す . 
SIN(x ) は 最大 値 が 1, 最小 値 が -1 で す . 0 の と き の す 座標 値 を 200 と し て , 1 の と き 50, -1 


① 
の と き 2550 すなわち 1 の 幅 を 150 ドッ ト と な る よう に し ます . その 場合 の 定義 は fny(x)=200- 


150SIN(x) と な り ま す . 
ェ は 0 度 か ら 360 度 ま で と し , 0 度 の と き x 方 向 100 ドッ ト , 360 度 の と き 460 ドッ ト と し ま 


す . 図 は 5 度 お き に SIN(x) の 値 を 求め て 前 の 値 と つない で いき ます . 


1L(100.50) 





方向 200 ド ッ ト 





(100.200) 
ェ 方 向 460 ド ッ ト 


ー1 ト (100.350) 
0 度 180 度 360 度 


③ SIN(x) で x が 0 度 の と き の 値 は (100 ,fny(0) ) で す . こと に まず 点 を か き , 次 は (xx,yy ) 
を 求め て 順に むす び ま す . xx は 0 度 , 5 度 , 10 度 …360 度 の x 方 向 の 値 で 100、 105, 110…… 
460 ドッ ト で す . yy は sin (0 度 ), sin (5 度 )、 sin (10 度 ) SIN (860 度 ) の と き の y 


ドッ ト で す . fny (x 度 ) と な り ま す . 





【 プ ログ ラム 例 】 
SCREEN 0 
CLS 0 
DEF fny (x) = 200 - 150 * SIN(x) SIN(x) の 方 向 の スク リー ン 上 の ドッ ト 位 置 
PSET (100, fny(0))-- 一 ーーーーーーーー- STN ( 0) の と き の ド ッ ト 位 置 を オン と する 
FORx=0TO360STEP5 SIN(0 度 ), SIN(5 度 )……SIN(860 度 ) 
xx =x+† 100 の と き の x, ゞ 座標 値 を 求め 順に むす ぶ 
r=x/180*3.14159 
yy = fny(r) 
LINE -(xx, yy) 
NEXT x 
END 
【 結 果 】 
/ に 3 


と 


3 章 関数 式 の 曲線 





演習 問題 」 


(12) y=sin*(3x) の グラ フ を か く プ ログ ラム を つく れ . 
(18)  y=100sin*(8x)+50cos(3x) の グラ フ を か く プ ログ ラム を つく れ . 











! 解 答 」 
(12) 【 プ ログ ラム 例 】 
SCREEN 0 
CLS 0 
DEF fny (x) = 200-150*SIN(3*x) “9 STN*( 3x ) の 値 の 画面 上 の y 座標 値 を 求め る 式 の 定義 
PSET (100, fny(0) ) -- 一 ーーーーーーーーーーーーーーー STN(0) の と き の x, 座標 値 の ドッ ト を か く 
FOR x = 0 TO 360 STEP 5 SIN*(0)~SIN*(3*360 ) の 値 を 5 度 お き に 求め , 
xx =x+ 100 その と き の rx, 座標 値 を 順に むす ぶ 
r=x/180*3.14159 
yy = fny(r) 
LINE -(xx, yy) 
NEXT x 
END 
【 結 果 】 


(18) 【 プ ログ ラム 例 】 








SCREEN 0 
CLS 0 
DEF fny (x) = 200 - 100 * SIN(8 *x) "3 -50*COS(3 *x%) 式 の 定義 
PSET (100, fny(0)) 0 度 の と き の fny の 値 の x, y 
FOR x = 0 10 360 STEP 5 0 度 -360 度 ま で 5 度 お き 座標 値 の ドッ ト を か く 
xxX = x+ 100 に 式 の 値 を 求め . x, 座標 
r=x/180*3.14159 値 を 順に むす ぶ 
yy = fnyr) 
LINE -(xx, yy) 
NEXT x 
END 


349 


EE 


4 章 画面 切り か え ウ イン ドウ ・ ビ ュー 


SCREEN, WTNDOW, WINDOW SCREEN, VIEW 





【 例 題 15】 画面 の 切り か え 


画面 0 に 四角 形 , 画面 1 に 四角 形 を か き , 画面 0 と 1 を 切り か えて 10 回 表示 する プロ グラ 
ム を つく れ . 


画面 0 の 四角 形 画面 1 の 四角 形 











【 解 説 】 〇 画面 切り か を 
① Quiojk BASTC で は 次 の よう に 書き 込み 画面 と 表示 画面 を も っ て いま す -. 
モー ド ペー ジ 
84 0, 1, 2。 8 
87 0 と 1 
88, 0 0 と 1 


②③ し た が っ て , SCREENO0 の 場合 は 書き 込み 、 表示 お の お の 2 画面 ずつ も っ て いま す . 書き 込み 2 

画面 は 別々 の 図 を か き , 次 に 表示 画面 を 切り か える と 瞬時 に 図 が 入れ か わり ます . アニ メ で は よく 使 
ら 手 法 で す . 

③ 画面 0 と 画面 1 の 2 画面 を も ち , お の お の 、, 独立 し て , 書き 込み . 表示 が で きま す . 








r 9 画面 へ の 書き 込み 
SCRREN 0 ,,0,0 


mm 0 画面 の 表 


示 
SCREREN 0 , ,1 ,1 = 1 両面 の 表示 
| 」 面 面 へ の 書込み 


④ 0 画面 と 1 画面 に お の お の 図 を 書き 込ん で お いて , 表示 画面 を 切り みか える と と で 図 が 瞬時 に 入れ 
か わり ます . 
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ーーーーー ギ ーーー ニー コニー = データ ーー マー ニッ マー ニーe エ am コー ニー ニー バーニー ペペ イー デーa タ ce 


【 プ ログ ラム 例 】 
SCREEN 0, , 0, 0 
CLS 0 
LINE (200, 40)-(300, 90), , B 
SCREEN , , 1, 1 
LINE (200, 110)-(300, 160), , B 
FOR i = 11010 
SCREEN , , , 0 
FOR j= 1 10 1000: NEXT 
SCREEN , , , 1 
FOR j= 1 70 1000: NEXT 
NEXT i 
END 
【 結 果 】 


| (上 と 下 の 四 角 が 交 互 表示 され る ) 
| 


| | 
| 


【 例 題 16】 ウイ ンド ウ 

(-100,-200 )-(200,500) を ウイ ンド ウ と し て , (-50,50) と (100,150 ) を 結ぶ 直線 
と , ウイ ンド ウ を (-500,-1500)-(1000,1000) と し て (-100,-200) と (200,500) を 
結ぶ 直線 を か く プ ログ ラム を つく れ 








【 解 説 】 ③ ウイ ンド ウ の 使い 方 を 示し ます . 

③④ ワー ルド 座標 系 の 中 で か いた 図 を ある ウイ ンド ウ を 設定 し て その 部 分 を 画面 へ 表示 し ます . これ は 
ちょ うど , 外 の 景色 を 窓 を 通し て みる よう な も の で す . 窓 の 大 き さ , 位置 に よっ て 表示 され る 図 の 位 
置 , 大 き さ が か わり ます . 


ウイ ンド ウ の 例 ① 
ワー ルド 座標 系 の 中 の 較 (正方 形 ) 


画面 





- 
ウィ イン kg ゥ ⑤ 400 ワー ルド 座標 系 の 中 で の ウイ ンド ウ の 大 き さ = 画 面 の 大 き さ 
正方 形 は 右側 
- ウ イン ドウ ⑨ 「 同上 , た だ し , ウイ ンド ウ の 位置 が 異な る 
正方 形 は 左上 
ウイ ンド ウ の 大 き さ が 画面 の 大 き さ の 3 倍 ( 縦 , 横 と る ) 
ウイ ンド ウ ③ 「 5 | 正方 形 は 画面 中 央 で 1/3 ( 縦 , 横 と ゃ ) 
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ニン ニュ ーーー ニニ mm ーーcmm= ニ や ーー ニテ ニー ニニ ュー デー キー キー ニーa=meeaーーーーーーmー ニ ーーー ュー ニー ニニ ニテ ェ ーー ニー ンー= ュ ャ ニーews キ ネー 








ウイ ンド ウ の 例 ② 
ワー ルド 座標 系 の 中 の 図 (正方 形 ) 
画面 
イン F2⑥ ” | ウイ ンド ウ の 縦 の 長 さと 横 の 長 さ の 比 が 200 対 640, 
画面 は 400 対 640 四角 形 が 縦長 と な る 
ウイ ンド ウ の 縦 の 長 さ と 横 の 長 さ の 比 が 1200 対 320 
画面 は 400 対 640 四角 形 は 縦 が 1/3, 横 が 1/2 の 























ウイ ンド ウ ⑤ 





②③ WINDOW の 座標 系 は 次 の と お り で す . 
j 二 方向 


ァ ー 方 向 | x 十 方 向 


jー 方 向 
③⑬ 項 ① の 図 で みた よう KC, 切り と っ た ウイ ンド ウ 全 体 が 画面 全体 と な る よう に 調整 され て 表示 され ま 
す . 
④ 例題 の 図 は 次 の よう に な り ま す . 
(1000.1000 ) 


-500, 一 1500) 一 (1000.1000) の ウイ ンド ウ 
ー( 一 100, 一 200) 一 (200,500) の ウイ ンド ウ 







(一 50.50) 一 (100.150) 
の 直線 


(一 100. 一 200) 一 (200.500) の 直線 


(一 500, 一 1500) li 


画面 


画面 の 
、。 ラニ ーーー 
【 プ ログ ラム 例 】 
SCREEN 0, , 0, 0 
CLS 0 
WINDOW (-100, -200)-(200, 500) ウイ ンド ウ の 設定 と 直線 


LINE (-50, 50)-(100, 150) 

WINDOW (-500, -1500)-(1000. 1000) ウイ ンド ウ の 設定 と 直線 
LINE (-100, -200)-(200, 500) 一 一 一 | 

END 
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川 グラ フィ ッ ク 編 


【 結 果 】 


ーー や" キー ニー ニニ ーーー* で ーー デニ ーー キー ーー ーーー ター ニー ペー て ーー ニー ニー ニモ ーー と ネー ュー ンー 
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【 例 題 17】 ウイ ンド ウス クリ ー ン 
【 例 題 16 】 の 図 を 逆 に し て 表示 する プロ グラ ム を つく れ . 











【 解 説 】 〇 ウィ イン ドウ スクリーン を 設定 し て 図 を 表示 し ます . 

① WINDOW SCREEN は 次 の よう な 座標 系 を 考え ます . WINDOW と ゞ 方向 の プラ ス と マイ ナス が 逆 
に な る ほか は 全く 同じ で す . 

Yー 方 向 


x 十 方 向 











y 丁 方 向 
②③ し た が っ て , WINDOW と WINDOW SCREEN を 使い 同じ 値 で 設定 し て 同じ 図 を か く と 縦 方 向 が 逆 
と な り ま す 


【 プ ログ ラム 例 】 
SCREEN 0, , 0, 0 
CLS 0 
WINDOW SCREEN (-100, -200)-(200, 500) ウイ ンド ウ の 設定 と 図 


LINE (-50, 50)-(100, 150) 

WINDOW SCREEN (-500, -1500)-(1000, 1000) ウイ ンド ウ の 設定 と 図 
LINE (-100, -200)-(200, 了 デ ーーーー ーー 

END 


【 結 果 】 
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【 例題 18】 ビュ ー 

(-50 ,50 ) と (100,150 ) を 結ぶ 直線 を (-100 ,-200) と (200,500 ) を 対 角 と する ウイ 
ンド ウ で 切っ て (0,0) と (100,50) を 対 角 と する ビュ ー に 表示 し , 次 に 同じ 直線 を (100, 
200) と (300,550 ) を 対 角 と する ビュ ー に 表示 する プロ グラ ム を つく れ . 








【 解 説 】 〇 ビュ ー を 指定 し ます . 

③ YTEW は 画面 上 の 対 角 を 示し て , その 範囲 と ウ イン ドウ の 図 を 表示 し ます . し た が っ て , ウイ ンド 
ウ で 切り と っ た 図 を 画面 の 任意 の 位置 に 表示 で きま す . 

③ WIND0W,。 VIEW, LINE は 次 の よう に な り ま す 





(200.500) 
(6. 呈 WINDOW た 
(一 50.50 ) と (100.150) の 直線 (0.0) 画面 
(100,200) ーーーー ニ ーーー ーーーーーー タ ドー!GHO0j50) 
we (100,200) 
(300.350) 





VIEW 


⑬ VIEW の 設定 の な い 場 合 は 画面 全体 が ビュ ー で す . 





【 プ ログ ラム 例 】 
SCREEN 0, , 0, 0 
CLS 0 
WINDOW (-100, -200)-(200, 500) ウイ ンド ウ の 設定 
YIEW (0, 0)-(100, 50) 一 ーーーーー ビ ュー の 設定 
LINE (-50, 50)-(100, 150) 一 一 一 一 直線 
YIEW (100, 200)-(300, 350) 一 ーーーーー ビ ュー の 設定 
LINE (-50, 50)-(100, 150) 一 一 一 直線 
END 

【 結 果 】 
ュ ニ ーー 


演習 問題 」 


(14) 画面 0 と 画面 1 c, 左 矢印 と 右 矢印 を か き , 画面 の 切り か え で 交互 に 10 回 表示 する プロ グ 
を つく ああ >: 
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zo 
(15) 画面 0 に 四角 形 , 画面 1 に その 四角 形 と 同じ 四角 形 の 中 に 円 を か いた 図 を つく り , 交互 C 
10 回 表示 する プロ グラ ム を つく れ . 
(16)  (-1000,-1000)-(1000,1000) を ウイ ンド ウ と し て (-500,500) と (100,150) を 対 
角 と する 箱 。 ウイ ンド ウ を (-500 ,-500 ) -(1000,1000) と し て , (-500,500) を (100, 
150 ) を 対 角 と する 箱 , ウイ ンド ウ を (-1000,-1000)-(500,5000) と し て (-500,500) 
と (100,150 ) を 対 角 と する 紅 を か く プ ログ ラム を つく れ . 
(17) (-100,-200 )-(200 ,500) を ウイ ンド ウ と し , (-50,50) と (100,150) を 対 角 と する 
箱 を ビュ ー を (0,0)-(100,100), (100,100)-(200,200)(0,0)-(659,599) の 58 種 
に し て 表示 する プロ グラ ム を つく れ . 


[ 解 答 ] 


(14) 【 プ ログ ラム 例 】 


SCREEN 0, , 0, 0 一 ーーーーーーー 左 矢印 を 画面 0 に か いて 表示 
CLS 0 

LINE (200, 40)-(300, 40) 
LINE (220, 35)-(200, 40) 
LINE -(220, 45) 

SCREEN , , 1, 1 一 一 一 ーーーーーー 正 矢印 を 画面 1 に か いて 表示 
LINE (200, 40)-(300, 40) 
LINE (280, 35)-(300, 40) 
LINE -(280, 45) 

FOR i = 1 TO 10 一 ーーーーーーー 画面 0 と 1 を 交互 C 10 回 表示 








SCREEN , , , 0 
FORj=11T0O1000: NEXT j 
SCREEN , , , 1 
FORj=1TO1000: NEXT j 

NEXT i 

END 

【 結 果 】 


(矢印 が 同じ 場所 で 交互 に 表示 ) 





! 


(15) 【 プ ログ ラム 例 】 


SCREEN 0, , 0, 0 固 面 0 区 四 六 形 を か の て 家 示 
CLS 0 
LINE (100, 50)-(200, 150), , B 
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(16) 


(17) 


4 章 画面 切り か え ウ イン ドウ ・ ビ ュー 


SCREEN , , 1, 1 画面 1 に 四角 形 と 円 を か いて 表示 
LINE (100, 50)-(200, 150), , B 
CIRCLE (150, 100), 50 




















FORi=11T0O10 交互 C 10 回 表示 
SCREEN , , , 0 
FORj= 1 TO 1000: NEXT j 
SCREEN , , , 1 
FORj= 1 10 1000: NEXT j 
NEXT i 
END 
【 結 果 】 


の 左 図 と 有 図 が 同じ 場所 で 交互 に 表示 され る 





【 プ ログ ラム 例 】 
SCREEN 0, , 0, 0 
CLS 0 


WINDOW (-1000, -1000)-(1000, 1000) ウイ ンド ウ の 設定 と 箱 の 表示 
LINE (-500, 500)-(100, 150), , B 

WINDOW (-500, -500)-(1000, 1000) ウイ ンド ウ の 設定 と 箱 の 表示 
LINE (-500, 500)-(100, 150), , ョ ーー 

WINDOW (-1000, 1000)-(500、5000) 一 ー ウ イン ドウ の 設定 と 箱 の 表示 
LINE (-500, 500)-(100, 150), , B 














END 

【 結 果 】 

【 プ ログ ラム 例 】 

SCREEN 0, , 0, 0 

CLS 0 

WINDOW (-100, -200)-(200, 500) ウイ ンド ウ の 設定 
VIEW (0, 0)-(100, 100) ビュ ー の 設定 
LINE (-50, 50)-(100, 150), , B 一 一 四角 形 の 表示 
YIEW (100, 100)-(200, 200) 一 ーーーー ビ ュー の 設定 
LINE (-50, 50)-(100, 150), , B 一 一 四角形 の 表示 
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am ンー ッ ーーー マーー ら ニュ ペー ニュ ーー ュー 


VIEW 0. 0)-(639, 399) ーーー 一 ビュ ー の 設定 
LINE (-50, 50)-(100, 150), , B 一 一 四角 形 の 表示 
END 
【 結 果 】 
し ーー 

に ここ 1 


し | 
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5 章 カラ ー 


PALETTE、 COLOR,、 SCREETN 








【 例 題 19】 カラ ー 
四角 形 を か き , 次 に 黒 か ら 黄 まで 6 色 で か きか える プロ グラ ム を つく れ . 








【 解 説 】 〇 カラ ー を 変化 させ ます . 
① 4 行 目 で 四角 形 を か きま す . と の と き , 線 の 色 は 4 に よっ て 色 で か きま す . と れ は 標準 の 指定 
で 5 行 目 の PALETTR を 指定 し ます 





0 黒 1 表 2 緑 5 水色 
4 赤 5 紫 6 黄 還 
③ 6 行 目 の PALETTE 4, 1 によって, 1 が 0 か ら 6 ま で 変化 し ます の で , 4 が 0 の 色 , 1 の 色 … 
…6 の 色 こ な り ま す . し た が っ て , 四角 形 が 黒 、 青 , 緑 、…… と な り ま す . な お , 黒 は 背景 が 黒 で 色 


が 黒 で すか ら 実 際 は みえ ませ ん . 
PALRETTE x,y は 値 x を 色 番 号 " で わり あて ます . 
⑬ し た が っ て , 同じ 赤 で か く 場 合 で も 例え ば 次 の よう に で きま す 
PALETTE 4,4 
LINE(100,100)-(200.150 ) ,4,B 


PALRETTE 2,4 
LINE(100,100)-(200,150 ) ,2,B 


PALRETTE 5,4 
LINE(100,100)-(200,150) ,5,B 


【 プ ログ ラム 例 】 
SCREEN 0 
CLS 0 
PALETTE 色 コ ー ド を 既定 値 に も どす 
LINE (100, 100)-(200, 150), 4, B 4 の 色 ( 赤 ) で 四角 形 を か く 
FORi=0106 4 KC 相当 する 色 を 0 一 6 の 色 に 変え る 
PALETTE 4, 
FOR j = 1 10 1000: NEXT 
NEXT i 
PALETTE 色 コ ー ド を 既定 値 に も どす 
END 
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【 結 果 】 











| 赤 黒 . 青 , 緑 水色 , 赤 , 紫 , 黄 , 赤 で 表示 








【 例 題 20】 文字 の 色 
"Quiok Basio" を 表 , 赤 , 水色 で か く プ ログ ラム を つく れ 











【 解 説 】 〇 文字 の 色 を 指定 し ます . 
① a$ を "Quiok Basio" と し ます . 
③ COLOR 1 と し て PRTINT a$ を 行う と 1 の 人 色 番号 の 色 で a&$ を 表示 し ます . すなわち 青 で す 
番号 は 次 の 色 を 示し ます . 
0 黒 1 青 2 緑 3 水色 4 赤 5 紫 6 黄 ? 折 
8~15 は 0~? の 反転 , 16ー31 は 0~15 の 点滅 
【 プ ログ ラム 例 】 


SCREEN 0 
CLS 0 

a$ = “Quick Basic" 
COLOR 1 
PRINT a$ 
COLOR 4 
PRINT a$ 
COLOR 3 
PRINT a$ 
COLOR 7 
END 


【 結 果 】 


Quick Basic ( 青 ) 
Quick Basic ( 赤 ) 
QuickK Basic (水色 ) 


[ば 








演習 問題 」 


(18) 結果 の 図 を つく る プロ グラ ム を つく れ . 
(19) 四角 形 を 2 つ 上 下 K 赤 色 と 緑 色 で 塗り 、 次 に 上 の 四角 を 赤 と 青 と , 下 の 四角 を 緑 と 黄 に 切り 
か える と と を 10 回 くり 返す プロ グラ ム を つく れ . 
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5 章 カラ ー 





[ 解 答 ] 


【 プロ グラ ム 例 】 


SCREEN 0 
CLS 0 
FORi=11T0O10 
CIRCLE (300, 200), i* 10 
IF (i MOD 2) = 0 THEN PAINT (300+i*10 - 5, 200), i MOD 7,. 7 
NEXT i 
END 


【 結 果 】 





【 ブ プロ グラ ム 例 】 

SCREEN 0 

CLS 0 

PALETTE 色 コ ー ド を 既定 値 に も ゃ どす 
LINE (100, 100)-(200, 150), 4, BF 四角 を 赤 で 塗る 

LINE (100, 200)-(200, 250), 2, BF 四角 を 緑 で 塗る 
FORi= 1 1T0 10 2 つの 四角 形 の 色 を 切り か える 














4 

2 
10 200: NEXT j 
1 

6 

0 


200: NEXT j 





PALETTE 色 コ ー ド で 既定 値 こ もぉ どす 
END 


【 結 果 】 





赤 と 青 の 切り か を 


| EE 
| 緑 と 間 の 切り か え 


【 レ ーー ニニ ニー ュー ニーー ニ ーーー 
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6 章 図形 の 配列 へ の と りこ み と 表 示 


GET。 PUT 





【 例 題 31】 図形 の 配列 へ の と り 込み と 表示 
下図 を 表示 し て 全体 を 配列 a% 右上 1/4 を 配列 5% に と り 込 ん で , 次 に 全体 を 、(200, 
50 ) を 左上 と し て , 1/4 の 図 を (350,50 ) を 左上 と し て 表示 する プロ グラ ム を つく れ . 

















【 解 説 】 ⑥ 図 を 配列 へ と り 込 み , 任意 の 位置 へ 表示 し ます . 
① 4 行 目 の CIRCLE 文 か ら 8 行 目 の LINE 文 ま で で , 問題 の 図 を つく り ま す . 
③ 次 の 形 で 図 を 配列 へ と り 込 み ま す . 
GET(50,50 ) -(150 ,150 ) ,a% 
ーー | 


左上 と 右 下 を 示す 座標 値 を 対 角 と り 込 む 配 列 名 
と する 四角 形 の 内 容 配列 は 前 も っ て 充分 量 を 確保 し て お く 
配列 に こと りこ と む 内 容 
(50.50) 
a2 の 内 窒 
この 内 容 を 配列 a2% へ と りこ む 





(100.150 ) 


⑬ 次 の 形 で 任意 の 位置 に 表示 し ます . 
PUT( 200,50 ) ,a%,PSRT 





表示 を する 左上 | | 表示 を 示す 
の 座標 表示 する 配列 
(200,50 ) 
4ーa% の 内 容 


ググ ク 


262 








6 章 図形 の 配列 へ の と りこ み と 表 示 





TE 
【 プ ログ ラム 例 】 
SCREEN 0 
CLS 0 
DIM a%(2700), b%(800) 一 ーーーーーーー- 外 を と り て も お 配列 
CIRCLE (100, 100), 50 図 の 表示 











LINE (100, 50)-(150, 100) 

LINE -(50, 100) 

LINE -(100, 50) 

LINE -(100, 150) 

GET (50, 50)-(150, 150), a% 図形 の と り 込 み 
GET (100, 50)-STEP(50, 50)。 5 一 | 

PUT (200, 50), a% PSET 図形 を 表示 
PUT (350, 50), b% psPt 一 一 一 | 

END 


【 結 果 】 








【 例 題 22】 オプ ショ ン 付 き の 表 示 

【 例 題 21】 と 同じ 図形 を か き 全 体 を 配列 &% 右上 1/4 を 配列 bD あ に と り と ん で , 次 に 
( 90 ,190 ) -(160,260 ) と (190 ,190 )-(260,260) の 四角 形 を 白 で うめ て お いて か ら , 
①a% の 内 容 を 左上 を (200,50 ) と し て PRESET 付き , ③b% の 内 容 を 左上 を (50,50) と し て 
0R 付き , ③b% の 内 容 を 左上 を (100 ,200) と し て XOR 付き , ④b% の 内 容 を 左上 を (200, 
200 ) と し て AND 付き で 表示 する プロ グラ ム を つく れ . 








【 解 説 】 ③ POT に た オプション を つけ て 表示 し ます . 

① PUT は PSET の 他 , PRESRT、 0R。 XOR、AND の オプ ショ ン が つけ られ ます . 

③ 10 行 目 まで は 【 例 題 21】 と 同じ で 図 を 配列 a&% と b%C に と り 込 み ま す . 

1112 行 目 は 四角 形 を 2 つ 塗 りつ ぶし ます . 

④ PUT で 図 を 表示 する 場合 、 PRESRET を 指定 する と , す で K 表 示 が し て ある 場合 は PUT する 内 容 
と 同じ ドッ ト は 消去 , 表示 の な い 場 合 は 無 表 示 で す -. 

⑤ PUT で 表示 する 場合 OR を つけ る と , 表示 する ドッ ト と , 現在 の 画面 の ドッ ト の 状態 の 0R を と っ 
て ドッ ト の 状態 を 決め ます . 

⑥ PUT で 表示 する 場合 XOR を つけ る と 表示 する ドッ ト と , 現在 の 画面 の ドッ ト の 状態 の XOR を 
と っ て ドッ ト の 状態 を 決め ます . 

⑦ PUT で 表示 する 場合 AND を つけ る と 表示 する ドッ ト と , 現在 の 画面 の ドッ ト の 状態 の AND を 
と っ て ドッ ト の 状態 を 決め ます . 
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【 プ ログ ラム 例 】 





(20) 
(21) 


(22) 


(20) 


SCREEN 0 

CLS 0 

DIM a%(2700), b%(800) 

CIRCLE (100, 100), 50 

LINE (100, 50)-(150, 100) 

LINE -(50, 100) 

LINE -(100, 50) 

LINE -(100, 150) 

GET (50, 50)-(150, 150), a% 

GET (100, 50)-STEP(50, 50), b% 
LINE (90, 190)-(160, 260), , BF 
LINE (190, 190)-(260, 260), , BF 
PUT (200, 50), a% PRESET 

PUT (50, 50), b% OR 

PUT (100, 200), b%, XOR 

PUT (200, 200), b%, AND 

END 


結果 図 の 下 側 の 背景 の 中 で 塗り つぶ し た 円 を 左 か ら 右 へ 動か す サ プ ロ グラ ム を つく れ . 





ーー デー マーaocomcsa an ニーm そ キー デー デーeset デ ュー ニー テー デニ ニャーeeem コ ニー ュー 


コー マー テー 


結果 の 図 を つく り , 配列 a&%&CC と りこ と ん で , 次 画面 左 か ら 有 へ 5 つ 表 示す る プロ グラ ム を 





[演習 問題 」 
つく れ . 
結果 の 図 を 左 か ら 右 へ 動か す サ プ ロ グラ ム を つく れ 
[ 解 答 」 
【 プ ログ ラム 例 】 
SCREEN 0 
CLS 0 
DIM a%(500) 図 を と りこ と む を 配 列 
CIRCLE (50, 200), 20 図 の 表示 


PAINT (50, 200), 7, 7 
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(21) 


CLS 0 
LINE 
LINE 


(30, 250)-(620, 250) 一 一 ーッ 
-(620, 
-(550, 
-(400, 
-(300, 
-(100, 


-(30, 


GET (30, 180)-(70, 220), 2% 


180) 
210) 
205) 
215) 
220) 
210) 





6 章 図形 の 配列 へ の と りこ み と 表 示 
図形 の と り 込 み 


バッ ク の 表示 


LINE -(30, 
PAINT (50, 
FORi = 50 


250) 
230), 7, 7 
TO 580 STEP 40 一 一 一 円 を だ か ら 右 へ 移動 


PUT ⑪, 200), a% OR 
FORj=1TO500: NEXT j 
EXT i 
END 











【 結 果 】 


人 ooo 
人 時 2 か 


【 プ ログ ラム 例 】 


SCREEN 0 

CLS 0 

DIM a%(2700) 

CIRCLE (100, 100), 50 

CIRCLE (115, 80), 10, , , , . 5 
CIRCLE (85, 80), 10, , , , . 5 
LINE (103, 65)-(127, 65) 

LINE (73, 65)-(97, 65) 

LINE (100, 100)-(100, 130) 
LINE (80, 140)-(120, 140) 

GET (50, 50)-(150, 150), a% 


ー 図形 の 表示 


図形 の と りこ と み 





FORi=1103 
PUT (150 * i, 200), a% PSET 
NEXT i 


図形 の 表示 








END 
【 結 果 】 / 全 三 、 


) 
/ 


0| 

)| 
) 
) 


|- 
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(22) 【 プ ログ ラム 例 】 


SCREEN 0 
CLS 0 

DIM a%(850) 
LINE (100, 100)-(160, 130), , B 一 図形 の 表示 
LINE (130, 90)-(140, 95) 

LINE -(130, 100) 

LINE -(120, 95) 

LINE -(130, 90) 

LINE (110, 105)-(120, 115), , B 
LINE (140, 105)-(150, 125), , B 
CIRCLE (115, 135), 5 


CIRCLE (145, 135), 5 一 ーーーーー 
GET (100, 90)-(160, 140), a%ー 一 一 図形 の と り 込み 
CLS 0 


FOR i = 1 T0 50 一 一 一 ーーーー 本 図形 の 表示 ・ 消 去 
PUT 行 * 10, 200), a% PSET 
PUTG*10, 200), a% XOR 

NEXT i 

END 


【 結 果 】 


し 


( 左 か ら 右 へ 動く ) 


つの (の 
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7 章 POINT と DRAW 


POTNT, DRAW 





【 例 題 23】 指定 位置 の 座標 値 
(100,100) と (100.,300 ) を 直線 で 結び , 次 に 画面 を 1 ドッ ト ず つ ス キャ ン し て , ドッ ト 
が オン の と き そ の ドッ ト 位 置 の 左 100 ドッ ト の 位置 の ドッ ト を オン に する プロ グラ ム を つく れ . 











【 解 説 】 〇 ③ グラ フィ ッ ク カ ー ソ ル の ある 位置 の 座標 値 

① LINE(100,100)-(100,300 ) で 縦 線 を か きま す . 

③④ 左上 (0.0) か ら (689,0) ま で 一 番 上 の ドッ ト 行 を 左 か ら 有 ヘス キャ ン し て いっ て , ドッ ト が オ 
ン の と き * 方 向 に C-100 の 位置 の ドッ ト を オン し ます -. 

③⑬ 同様 に 1 行こ 599 行 ま で 同じ こと を くり 返し ます . 




















0 桁 上 639 桁 目 
半 ー- | 各行 の 各 ド ッ ト の オン オフ を 左 か ら 有 へ チェ ッ ク 
1 行 目 1 
ー トド ッ ト が " 白 " の と き 100 ド ッ ト 桁 前 に ドッ ト を 表示 
100 行 朋 ・ 
300 行 目 
399 行 上 
【 プ ログ ラム 例 】 
SCREEN 0 
CLS 0 
LINE (100, 100)-(100, 300) 継 線 の 表示 
FOR i = 0 10 399 0 人 i み ら 298 行け か 
FOR j = 0 10 639 639 桁 ま で ドッ ト が 白 か ど うか 
IF POINTGj, 1) = 7 THEN PSET (j- 100, 1) | チェ ッ ク . 白 の と き 100 ドット 
1 桁 前 の 1 ドッ ト を 表示 
NEXT i 
END 
【 結 果 】 
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【 例 題 24】 DRAW を 使っ た 図 
DRAW を 使っ て , 結果 の 図 を つく れ . 











【 解 説 】 〇 DRAW を 使っ て 図 を か きま す . 
① DRAW の 後 C”" ア ルフ ァ ベ ッ ト 丁 数 値 "' を お いて グラ フィ ッ ク マ クロ 言語 を つく り ま す . 
③ 機能 は 次 の と お り で す . 例題 を 通し て 順に 説明 し て いき ます . 
① カー ソル 移動 
B、N 
U, D, LR, E.TF、G,、H, M 
③ 回転, 色 指 定 , 拡大 , 縮小 
A, TA,。 C, S, P 
③ 部 分 文字 列 
⑬ 5 行 目 の 82 は 拡大 率 が 2 で す . S は 拡大 縮小 を 示し , 2 は 倍率 で す . 2 の 部 分 は 1 か ら 255 が 
使え ます . 実際 の 値 は カー ソル 移動 命令 で 与え られ る 数 値 に ここ の 値 を 掛け た も ゃ の で す 
た と えば DU50 は 上 へ 50 ドッ ト 移 動 し ます が , S2 が 指定 し て ある と 上 へ 50*2=100 ドッ ト 移 動 
Li ま 当 な 
④ 人 を 行 目 の d100、r100,u100。 1100 は お の お の ., 下 , 右 , 上 , 左 へ 100 ドッ ト の 移動 を 示し 
ます . た だ し , 8S2 が 指定 し て あり ます か ら 本 例 で は その 2 倍 の 量 の 移動 で す . 








ン 100、、 


| 則 
L P 


7100 
⑤ 5 行 目 の bm 100、100 は 次 の 意味 で す . 
B が 線 を ひか ず に カー ソル の み 移 動 さ せま す . 
Mx, ゞ は 座標 値 (*, ゞ ) まで 移動 し ます . すなわち 、BM100, 100 は カー ソル の み (100,100) 
の 位置 へ 移し ます . 
BM+x, +y の よう xx, y 符合 を つけ る と 現在 の 位置 か ら 相 対 位 置 を 示し ます . プラ ス ま た は 
マイ ナス *x,。 プラ ス ま た は マイ ナス y だ け 移 し た 位置 を 示し ます - 
7 行 目 の e520 f30 d60 g30 h20 nu60 の e, f, g, h は お の お の 次 の と お り で す . 





左 へ ヵ 





⑦ 8 行 目 の nm+100, +0 の n は 移動 位置 まで 線 を ひい た 後 ( 0,.0) ま で カー ソル を も ど し ま す . し 
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た が っ て , nm+100。 +0 は 現在 位置 か ら ェ 方 向 100, 方 向 0 の 位置 まで の 横線 を ひい た 後 , カ 
ー ソ ル を (0,0) へ も ど し ま す . 








【 プ ログ ラム 例 】 
SCREEN 0 
CLS 0 
DRAW “s2^ 2 倍 の 倍率 
DRAW "d100 r100 u100 1100"ーーーーーー 四角 を か く 
DRAW "bm100, 100"ーーーーーーーーーーー 一 カー ソル を 移す 
DRAW "s5 "一 ーーーーーーーーーーーーーーー- 5 倍 の 倍率 
DRAW "e30 f30 d60 g30 h30 u60: 6 角形 の 表示 
DRAW "bm0.0. nm+100,+0 "ーーーーーー- ( 0,0 ) か ら 横 線 を ひい て カー ソル を (0,0) へ も どす 
END 

【 結 果 】 





【 例 題 25】 DRAW を 使っ た 図 
四角 形 を か き , 次 に それ を 塗り つぶ し , 次 に 四角 形 を 0 度 , 90 度 , 180 度 , 270 度 回 転 し 
た 図 を か く プ ログ ラム を つく れ . 








【 解 説 】 ⑥ 塗り つぶ し と 回 転 

① 5 行 目 4 行 目 で 四角 形 を か きま す . 

②③ 5 行 目 で 右 下 へ カー ソル を 移し ます . 

③ 次 の C7, P7, 7 は 次 の 意味 で す . 
C は 色 指定 で す . CO0L0R, PALETTE お よび SCREREN 命令 と 関連 し ます . と と で は 7 に よっ て 白 
を 示し ます . 
E は 図形 の 塗り つぶ し を 意味 し ます . 最初 の 7 は 塗り つぶ す 色 で 白 , 次 の 7? は 塗り つぶ す 境 界 色 
で 白 で す . すなわち , 現在 カー ソル の ある 領域 で 境界 が 白線 の 中 を 白 で ぬり つぶ し ます 














3 一 4 行 目 の 図 


P7.7 に よっ て ぬり つぶ す 
ロ 
カー ソル 位置 |(bEt50) に よる 


④ 7 行 目 10 行 目 の a は 回 転 角 を 示し 数 値 は 角 で す . 角 は 0. 90, 180, 270 度 で お の お の 0, 1, 
2、 3 で 表わし ます -. 次 図 の よう に な り ま す - 
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90 度 al 
| 
180 度 0 度 a0 
a2 
270 度 
a3 
⑤ 7ー10 行 目 は 四角 形 を 回 転 し て か きま す . 
【 プロ グラ ム 例 】 
SCEEEN 0 
CLS 0 
DRAW "s2" 四角 形 を か く 
DRAW "d100 r200 u100 2 一 
DRAW "bf50" カー ソル を 四角 形 の 中 へ 入れ る 
DRAW "c7 p7.7" 塗り つぶ し 
DRAW "a0 d100 r200 u100 1200" 回 転 し た 四角 形 を 4 つか く 
DRAW "al d100 r200 u100 1200" 
DRAW “"a2 d100 r200 u100 1200" 
DRAW “a3 d100 r200 u100 1200" 
END 
【 結 果 】 
| 
| | 
【 例題 6】 DRAW を 使っ た 図 
四角 形 を か き 次 60 度 反 時 計 方 向 と 180 度 時 計 方 向 へ 回 転 し た 図 で か く プ ログ ラム を つく れ . 
【 解 説 】 〇 任意 の 角 の 回 転 を し ます . 
① 5^~4 行 目 で 四角 形 を か きま す 
②③ 5 行 目 と 6 行 目 の ta は 回 転 を 示し ます . 数 値 は オ -860 か ら 860 まで の 整数 で , 正 の と き 反 時 計 


まわ り , 負 の と き 時 計 ま わり と な り ま す . 
し た が っ て 5 行 目 の ta60 は 反 時 計 ま わり K 60 度 , 6 行 目 の ta-180 は 時 計 ま わり に 180 度 








の 回 転 を 示し ます . 
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【 プ ログ ラム 例 】 


SCREEN 0 
CLS 0 


DRAW “s2" 四角 形 の 表示 
DRAW “d100 r200 u100 i200ーーーー| 
DRAW “ta60 d100 r200 u100 1200" 60 度 反 時 計 方 向 へ 回 転 し た 図 


DRAW “ta-180 d100 r200 u100 1200" 180 度 時 計 方 向 へ 回 転 し た 図 
END 

















【 結 果 】 





【 例 題 27】 DRAW を 使っ た 図 
DRAW を 使っ て , 四角 形 を か き , 次 に 長 さ が る 倍 , 3 倍 の 図 を か みく プロ グラ ム を つく れ . 














【 解 説 】 〇 ⑥ 拡大 図 を つく り ま す . 

① 5 行 目 で 縦 100、 横 200 の 四角 形 を つく り ま す . 

③ 4 行 目 で 82 の 指定 に より , 縦 , 横 と も 長 さ が る 2 倍 の 図 を つく り ま す . 
③ 5 行 目 で 85 の 指定 に より , 縦 , 横 と も 長 さ が 3 倍 の 図 を つく り ま す . 
【 プ ログ ラム 例 】 


SCREEN 0 

CLS 0 

DRAW “s1 d100 r200 u100 1200" 一 一 一 四角形 を か く 
DRAW "s2 d100 r200 u100 1200" る 倍 の 四角 形 を か く 
DRAW “s3 d100 r200 u100 1200" 5 倍 の 四角 形 を か く 
END 


【 結 果 】 











【 例 題 28】 DRAW を 使っ た 図 
DRAW を 使っ て 【 結 果 】 の 図 を か け . 











【 解 説 】 ⑥ 部 分 文字 列 コ マン ド を 使い ます . 
① 5 行 目 と 6 行 目 の 組 合わ せ は 次 の よう に な り ま す - 
5 行 目 &1$= "8S2"* DRAW "8S2”" 
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⑨ 


③ 


6 行 目 DRAW "x"+VARPTR$(a1$) 

同様 に 5 行 目 と 7 行 目 の 組合 わせ は 次 の と お り C な り ま す . 

5 行 目 &32$="d100r100u1001100" >DRAW"d100 r100 u100 1100" 
7 行 目 DRAW" ェ x”"+VARPTR$( a5$ ) 

10 行 目 と 11 行 目 の 組合 わせ は 次 の よう に な り ま す . 

10 行 目 2=1 ーーDRAW "8S1" 

11 行 日 DRAW "8="+VARPTR$(Z) 





【 プ ログ ラム 例 】 


SCREEN 0 

CLS 0 

a1$ = "s2" 変数 に 文字 列 を 代入 
a2$ = "s3" 
a3$ = “d100 r100 u100 1100 "一 一 
DRAW "x” + VARPTRS(a1$) 
DRAW "x" + VARPTRS(a3$) 
DRAW "x" + VARPTR$(a2$) 
DRAW "x" + VARPTR$(a3$) 一 一 一 
Z = 1 一 一 ーーーーーーーーーー 変数 に 数 値 を 代入 
DRAW "s=" + VARPTR$(z)ーーーーーー ィ ーDRAW 文 

DRAW "x" + VARPTR$(a3$) 
END 








ー DRAW 文 








【 結 果 】 


[演習 問題 」 


(23) 画面 左上 に "日 "を か き , 画面 の ドッ ト を チェ ッ ク し て , 表示 の と き 100 ドッ ト 桁 プラ ス , 


200 ドッ ト 桁 プラ ス の 位置 の ドッ ト を 表示 する と と で "日 "を 右 に 2 つ コ ピー する プロ グラ ム を 
つく れ . 


(24) “82” を 指定 し て 縦 100, 横 300 の 長方形 を か みき, 次 Ca0, a1, a2, a5 を 指定 し て 回 転 








し た 図 を つく る プロ グラ ム を つく れ . 


(25) 結果 の 図 を みく プロ グラ ム を つく れ 
(26) 結果 の 図 を か めく プロ グラ ム を つく れ . 
(27) 結果 の 図 を か く プ ログ ラム を つく れ . 
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(24) 
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ーー ーー ニー ピー ニテ マン ーー キーacmoewmsa aw 

















[ 解 答 」 
【 プ ログ ラム 例 】 
SCREEN 0 
CLS 0 
LINE (10, 10)-(50, 50), , B ー "日 "の 表示 
LINE (10, 30)-(50, 30) 
FORi=0 TO60 各 ド ッ ト を チェ ッ ク し て 
FORj=0 10 60 表示 し て ある と き 
IF POINTG, j) = 7 THEN 100 ドッ ト 桁 プラ ス , 200 ドッ ト 桁 
PSET (1 + 100, j) プラ ス の 位置 の ドッ ト を 表示 
PSET (i + 200, 1} 
END IF 
NEXT j 

NEXT i 
END 
【 結 果 】 
思 帳 回 

[ | | 
【 プ ログ ラム 例 】 【 結 果 】 
SCREEN 0 
CLS 0 
DRAW "s2^ 長方形 の 表示 
DRAW “d100 r300 u100 i500 一 | - 
DRAW "a0 d100 r300 u100 1300" 回 転 し た 図 の 表示 
DRAW "al d100 r300 u100 1300" 
DRAW "a2 d100 r300 u100 1300" 
DRAW “"a3 d100 r300 u100 1300- 
END 
【 プ ログ ラム 例 】 【 結 果 】 
SCREEN 0 
CLS 0 
DRAW "bm300, 100" カー ソル を (300,100) | 
DRAW "s2" へ 移動 Se 
DRAW "f100 r100 g100 d100 一 一 一 一 図 の 表示 ヽ 





DRAW "1100 h100 u100 e100" 一 一 
END 
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(26) 


(27) 


ーー や トーン ーー デー キー ュ ア ニー ュ テ ーーpsー デ ーー ニー ュー ーー ーー ホー ンー 


【 プ ログ ラム 例 】 


SCREEN 0 

CLS 0 

DRAW "s1" 

DRAW "bm300, 300" カー ソル を ( 300,300 )^ ム 移動 


FOR i = 0 10 360 STEP 30 30 度 ず つ 回 転 し た 図 を 表示 
DRAW "ta=" + VARPTRS(i) 





DRAW "r100 u100" 
NEXT i 
END 


【 結 果 】 


が Ne の 





【 プ ログ ラム 例 】 


SCREEN 0 
CLS 0 
DRAW "s17 
DRAW "bm300, 200"ーーーーーーーーーーー カー ソル を (300,200 ) へ 移動 
FOR i = 0 TO 360 STEP 30 30 度 ずつ 回 転 し た 図 を 表示 
DRAW "ta=” + VARPTRS(i) 
DRAW "r200 u100" 
DRAW "bm300,200" 
NEXT i 
END 





【 結 果 】 
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1 章 N。BASIC (S6) と の 互換 





【 応 用 問題 1】 表 示 
N。。BASTIC(86) で つく っ た 次 の プロ グラ ム を Quick BASTC で 実行 せよ . 


10 PRINT "2492A「- ル ッッ グ 
20 END 








【 解 説 】 〇 ③ NaaBASIC(86) の プロ グラ ム を Quiok BASIC で 実行 し ます . 





① NasBASTC(86 ) を 使っ て , 問題 の プロ グラ ム を つく り ま す . と れ を アス キー ファ イル と し て 格納 
し まお: 
save "PRAC-1。.BAS",a [| に よっ て アス キー セー ブ し ます . 

③ Quiock BASTC を 走ら せま す . DIR に よっ て PRAC-1 .BAS が ある と と を 確認 し ます . 


RRR-82 BAS RRR-85 BAS HAIRETSU BAS HAIRETSU IN RRR-86 BAS 
PAI IN RRR-87 BAS RRR-88 BAS KAMOKU 1N RRR-89 BAS 
RRR-90 BAS RRR- 95 BAS ERR-96 BAS RRR-97 BAS RRR-98 BAS 


RENSHU1 BAS 





651264 バイ ト が 使用 可能 て す . 


⑬③ ファ イル メニ ュー を 選択 し , 【Q] , PRAC-1 . は) に よっ て ファ イル PRAC-1 .BAS を 読み 込み ま 
す . 
PRAC- 1 .BAS 
10 PRINT "クィ ッ ク ペ トー シッ ク " 
20 END 


④ と の プロ グラ ム は と の まま 実行 で きま す . [f・5】 に よっ て プロ グラ ム を 実行 し ます . 
クィ ッ ク へ ~ - シ ッ ク 
【 プ ログ ラム 例 】 


10 PRINT “72492 - 六 が 
20 END 
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で や ーー キー = ニー ュー ニュ つ ぷっ で イニ ae マー マー を ーーー と エー ニー ッッ ュー 





【 応 用 問題 3】 桁 ・ 行 の 指示 
次 の プロ グラ ム を NasBASTC(86) で つく り , これ を Quick BASTC で 実行 せよ . 


10 CLS 

20FORTI=1T010 

30 LOCATE I, 10: PRINT “AT 
40 NEXTI 

50 END 











【 解 説 】 ⑨ NaBASIC(86) で つく っ た プロ グラ ム を Quiok BASTC で 一 部 変更 し て 実行 し ま 
す . 
① NasBASTC( 86 ) を 使っ て 問題 の プロ グラ ム を つく り ま す . 
⑨ と れ を アス キー セー プ し ます . 
Save "PRAC-2.BAS"。 a で す . 
⑬ Quiok BASTC を 走ら せ フ ァイル メニ ュー か ら [Q] , PRAC-2 ) に より と の プロ グラ ム を 読み 
出し ます . 


10 CLS 

20FORI=11010 

30 LOCATE 1, 10: PRINT "AT 
40 NEXT I 

50 END 


④ [f・5] で 実行 する と 次 の よう KC 縦 に "4A" を 表示 し ます -. 


と と ジテ テテ テテ テテ 


⑤ 元 の プロ グラ ム で は 横 (c"A" を 表示 する も の で すか ら , 縦横 が 送 で す . これ は LOCATRE x,、y が 
NasBASTC(86 ) で は x が 桁 , y が 行 を 示す の に 対し , Quick BASTC で は x が 行 , y が 桁 を 示す か 
ら で す . し た が っ て , 桁 と 行 を 逆 に 修正 し ます . 

【 プ ログ ラム 例 】 


10 CLS 
20FORI=11010 
30 LOCATE 10, 1: PRINT "だ TO0CATE 1,10 を LOCATE 10,i に 変更 


40 NEXT I 
50 END 


【 結 果 】 


AAAAAAAAAA 
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【 応 用 問題 3 


グラ フィ ッ ク 
浴 の プロ グラ ム を NssBASTC(86 ) で つく り , 次 に こと れ を Quiokks BASIC で 実行 せよ . 

10 SCREEN 2, 0, 0, 1 
20 CLS 3 
30 LINE (200, 50)-(400, 250), , B 
40 LINE (200, 50)-(400, 250) 
50 LINE (200, 250)-(400, 50) 
60 LINE (100, 250)-(500, 350), , BF 
70 END 





【 解 説 】 


トウ 


Sav@e 


Quiok BAST 


SCRREN 文 の 2 


(5) 


こと これ を その まま 【f・5] 
SCREEN は , NaaBASTC(86 ) と Quiok BASTIC で は , 


NasBASTC(86) で つく っ た グラ フィ ックス を Quiok BASIC で 実行 し ます . 
問題 の プロ グラ ム を NaaBASTC(86 ) で つく り ま す . 
と れ を アス キー 
"PRAC-2.BAS" , 
C で こと れ を 読み 出し ます . ファ イル メニ ュー か ら [Q] , PRAC-5.BAS ] で す 


セー プル し ます: 
8 で ぐず お: 


と する と エラ ー と な り ま す 


番目 は 8086/v320, 80286 を CPU と する マシ ン で は 指定 で きま せん . 


行 番号 10 と 20 を つぎ の よう に 修正 し ます . 


PRAC-4 .BAS 
10 SCREEN 0 
20 CLS 
30 LINE (200, 50)-(400, 250), , B 
40 LINE (200, 50)-(400, 250) 
50 LINE (200, 250)-(400, 50) 
60 LINE (100, 250)-(500, 350), , BF 
70 END 
$⑧⑥ [fx・5) で 実行 し ます . 
【 結 果 】 
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NssBASIC(86) と の 互換 





使い 方 が 違い ます . Quiock BASIC の 
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【 応 用 問題 4】 ハノイ の 塔 
再帰 プロ グラ ム を 利用 し て ハノイ の 塔 を 解く プロ グラ ム を つく れ . と と で の 例 は 次 の よう な 
問題 と し ます . 








最初 の 状態 最後 の 状態 
1-4 の 円 板 (円 筒 )、A~-C の 柱 が あり ます . A の 柱 C 大 きい 円 板 を 下 に し て 1~4 の 円 板 を 
さ し と み ま す . と れ を 1 回 (C 1 つの 円 板 を 動か し , 小さ い 円 板 の 上 に 大 きい 円 板 が 乗ら な いと 
と を 条件 に し て C の 柱 に 大 きい 順に 並べ な お し て くだ さい . 











【 解 説 】 ③ ハノイ の 塔 の 問題 を 再帰 プロ グラ ム で 解き ます . 

① ハノイ の 塔 の 問題 は 複雑 そう で す が , 再帰 と いう 考え を 入れ る と 簡単 に 解け ます . と の 考え 方 を ま 
ず 説 明 し ます . 説明 を みる 前 に 自分 で ゃ 実際 に や っ て みて くだ さい . 

③⑬ 一 番 大 きい 円 板 が A の 柱 か ら C の 柱 へ 動く と き の 状 態 を 考え て くだ さい . 次 の よう に な る は ず で 
す 

A の 上 に は 大 きい 円 板 以外 何 も な い 


C の 上 に は 何 $ ゃ も ない 
し た が っ て , BK 残り が 大 きい 順に 並ん で いる 









1 IE 
1 





A B C 
?B に 残り が 大 きい 順に 並ん を で いる "と と が ポイ ント で す . 
⑬ 次 に 残り の 円 板 の う ち 最大 の も ゃ の が , C の 円 板 の 上 へ 乗る 直前 の 状態 は 次 の と お り で す . 


A の 柱 に は 残り が 大 きい 順に 並ん で いる 
/。 さ B の 上 に は 3 つの うち の 最大 の も の が 残る 
C は 4 つの 中 の 最大 の も の 以外 は な い 


HI_ TTFTT 


ん B C 











A 残り が 大 きい 順に 並ん を で いる と と が ポイ ント で す . 
〈①④ すでに 気づい た と お り , n 個 の 中 の 最大 の も の を 動か す と き は 動か みす 先 は nm より 大 きい も の が 順 
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に 並ん で いる か 何 も ゃ ない 状 態 で あり , 他 の 柱 は n-1 個 の 円 板 が 大 きい 順に 並ん で いま す . と いう と 
と は n 個 の も ゃ の を 移す と と は mn-1 個 の も ゃ の を 移す と と と 同じ と と で あり , n-1 個 の も ゃ の を 移す と と 
は n- る 2 個 の も の を 移す の と 同じ こと で す . 

















① 








n 個 の も ゃ の を 移す こと は 最大 の 円 板 を 移し た 人 後 は 
nー1 個 の も ゃ の を と な り の 柱 か ら 移 す の と 同じ で ある 
と の くり 返し と な り ま す . 





ァ ー2 個 


A B C 
⑤ 再帰 的 に 考え る と 次 の よう に な り ま す . 
SUB hanoi(x%,a$,b$,o$ ) … エ % を 4、 a$ を "A"、 b$ を "C"、c$ を "B" と し て hanoi を 呼 
1F x%>0 THEN 9 條 チ * 
hanoi x%-1 ,&$,c$。b も 5 …… nー1 個 の 円 板 を & か ら b へ 
PRTNT x%j" ノ エン バン オ "jia" カラ "jib$ も 7" へ" …… 最 大 の も ゃ の を aa か ら o へ 
hanoi x%-1 ,o$,b$,aB 
END TTF 
END SUB 
【 プ ログ ラム 例 】 


DECLARE SUB hanoi (x% a$, b$, c$) 
hanoi 4 "ACB 
END 


SUB hanoi (x% a$, b$, c$) 
IF x% > 0 THEN 
hanoi x% - 1, a$, c$, b$ 
PRINT x%「/r7Y ッ オオ "ja5: 7 7 bD8: TA 
hanoi x% - 1, c$, b$, a$ 
END IF 
END SUB 
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Ps mc キー ュー デー ニー っ ーーー キー キン oe で asa ニュ ーー ニー ニュ ーー ニー ニー 


【 結 果 】 
1 グエン オ A ヲ カラ B^ 
2 フェン" ン オ A カ ラ C へ く へ 
0 が SM シス お 92 ネネ 
3 ノ フェン ハバ ^ ン オ A カ ラ B へ 
1 ノ フェ ント ン オ CC カラ A へ 
2 ノロ シン オカラ 8B 々 く 
1 フェ ン W ン オ A カ ラウ B へ ヽ 
4 ノ フェン ハ ソン オ A カ ラ C へ 
1 ププ エ CN ッ オ 旭 カ ラ 6X ペ 
2 フェ ン ハ バハ" ン オ B カ ラ A へ 
1 グ ェ ン が シン オ C32 ラ AA べく 
3 ノ ェ ンカ ハリ" ン オ B カ ラ C へ 
ド 。 〆 ES 入信 
2 グロ ェ ン NN ン オル カラ 
中 グ mA ルオ 刀 カ ラペ 





【 応 用 問題 5】 ステ ッ チ 
再帰 を 使っ て , 結果 の ステ ッ チ 模様 を か く プ ログ ラム を つく れ . 














【 解 説 】 
① クロ スス テッ チ は コッ ホ 曲 線 を 使っ て か きま す . コッ ホ 曲 線 は 次 の よう に つく り ま す . 
0 次 1 次 2 次 
73 
人 
ーー ニー 73 73 


0 次 は 直線 長 さ 1 
1 次 は 左 か ら 1/5 の と と ろ で 1/5 の 正方 形 (た だ し , 下辺 は な し ) を つく る 
2 次 は 1 次 の 各 直 線 部 で 1/3 の と と ろ す な わ ち 1/9 の と こと ろ で 正方 形 を つく る 


1 次 の コッ ホ 曲 線 は 0 次 の コッ ホ 曲 線 を 5 本 か いた も の で す . 2 次 の コッ ホ 曲 線 は 1 次 の コッ ホ 
曲線 を 5 本 か いた も の で す . 一 般 化 する と n 次 の コッ ホ 曲 線 は n-1 次 の コッ ホ 曲 線 を 5 本 か け ば 
よい と と に な り ま す 

と の と き 正 方 形 の 方 向 は 次 の よう に +90、-90, -90, +90 度 で す 





ー90" 


さ 








し た が っ て , プロ グラ ム 例 の サブ ルー チン stech が コッ ホ 曲 線 を か く 再 帰 呼 び 出 し を 行う ルー チ 
ン で す . 
【 プ ログ ラム 例 】 
DECLARE SUB stech (n!, 1) 
DECLARE SUB move (1) 


DECLARE SUB kaku (deg!) 
COMMON SHARED xx, yy, a 


38 の 


SCREEN 0 
CLS 0 


SUB kaku (deg) 
a =a+† deg 
a = a MOD 360 
END SUB 


SUB move (1) 


x= 1 * (OS(3.14159 / 180*a) 
y = 1 * SIN(3.14159 / 180* a) 
LINE (xx。 yy)-(xx + x,。 yyー ツ ) 


XX†X 
YYーY 


XX 


YY 
END SUB 
SUB stech (n, 1) 
IFn=0 THEN 
move 1 
ELSE 
stechn-1 
kaku -90 
stechn-1, 
kaku 90 
stechn-1, 
kaku 90 
stechn-11, 
kaku -90 
stechn- 1, 
END IF 
END SUB 


1 


1 


1 
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【 結 果 】 
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ー デ テッ cz と る エン ネー の っ ae ュー 


3 章 円 弧 を 使っ た グラ フ 





【 応 用 問題 6】 円 帯 グラ フ 
下 の 表 の デー タ を 円 帯 グ ラフ と する プロ グラ ム を つく れ . 
1987 年 商品 別売 上 高 
品 名 | 売上 高 ( 借 円 ) 
家 電 250 
二 あー 220 

















コシ トド ト ロー ラー 150 





エレ クト ロニ クス 360 




















【 解 説 】 〇 円 帯 グ ラフ を つく り ま す . 
① 下図 の よう に 円 周 上 の 円 弧 の 長 さ で 統計 量 を 表わす グラ フ を 円 帯 グ ラフ と 名 づけ ます . 
0 


統計 量 を が す 
円 逢 の 長き が 是 を ボ す 


円 弧 の 長 さ は 360 度 で 比率 な ら 100%, 量 な ら グ ラフ で 表示 で きる 最大 量 と し ます . 


②③ 4 つの 統計 量 を 大 き さ の 順に 並べ な お し , 量 の 多い も ゃ の を 外周 側 ヘ へ お きま す -. 


③ 売上 高 は 60 億 円 が 最大 で すか ら , ここ と で は 全 周 すなわち 360 度 の 場合 400 億 円 を 示す も の と 
し ま が : 


全 周 で 400 億 円 を が す 


半周 で 400/2 三 200 億 円 を 示す 
〈④⑥ し た が っ て , X 億 円 の 売上 は X/400*2*5.14159 ラジ アン で 表示 で きま す . 400 億 円 の 場合 
2*8.14159 ラジ アン すなわち 360 度 で す . 
⑤ 図 の 表示 は 次 の よう に な り ま す . 
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0* 
(230.184 ) 


7 


① 中 心 を (230,184), 半径 を 100 と する 円 を か く 








③ 半径 上 の P1 と P5 を 結ぶ . P1 は 半径 100 の 円 周 上 の 点 で 時 計 の 12 時 の 位置 で す . P5 は P1 と 中 心 を 結ぶ 
半径 上 の 点 で P1 と P5 の 長 さ は 4 本 の 帯 の 幅 で す . 今回 は 1 本 の 帯 の 幅 は 16 ドッ ト と し て いま す . し た が っ て 








1-P5 は Y 方 向 16*+4=64 ドッ ト で す . 


③ P2-P6 の 円 弧 を か きま す . 中 心 を (280 ,184) と し , 半径 は (100-16) ドッ ト で , P2-0-P6 の つく る 角 
度 は エレ クト ロニ クス の 売上 高 360/400*2*3.14159 ラジ アン で す . 


(④ P6 と PE7 を 結び ます . P7 は 中 心 を (230,184) と し , 





半径 を 100 と する 円 周 上 で , P1-0-P7 の つく る 角 


が エレ クト ロニ クス の 売上 高 3860/400*2*25。14159 ラジ アン で す . 
⑮ 帯 の 中 の 1 点 を 指定 し て PAINT 文 で ハッ チン グ し ます . 帯 の 中 の 1 点 は 中 心 を (230,184) と し , 半径 を 
(100-8) ドッ ト , 角度 を エレ クト ロニ クス の 売上 高 360/400/2*2+3.14159 ラジ アン の 位置 で す . 





【 プ ログ ラム 例 】 


DECLARE SUB aa () 

DECLARE SUB bb () 

COMMON SHARED a$0, a0), b$() 
DIM a$(1 TO 4), a(1 10 4), b$(1 T0 4 
SCREEEN 0 

CLS 0 

DEF fnx (c, r, x) =c+r*SIN(X) 
DEF fny (c, r, y) =c-r* COS(?) 
DEF fnd (d =d/400*2*3.14159 











売上 高 360 億 円 の つく る 角 の 半分 


PAINT 文 で 指定 する 位 汗 


円 周 上 の 点 の X 護 標 値 の 定義 

円 周 上 の 点 の Y 座標 値 の 定義 

売上 高 に 相当 する 中 心 角 を 求め る 式 の 定義 
ハッ チン グ パ ター ン の 登録 





b$(1) = CHRS(&HFF) 
b$(2) = CHR$(&H11) 
b$(3) = CHR$(&H22) + CHRS(&H11) 
b$(4) = CHRS(&HC) + CHRS(&HAA) 





FORi=1104 
READ a$G), aG) 
NEXT i 


] 商品 名 と 売上 の 読み 込み 





FORi=1103 





FORj=i+1104 
IF ai) > a(j) THEN GOTO a: 
SWAP a$(⑪), a$(j) 
SWAP a(⑪), a(⑪) 

a: NEXTj 

NEXT i 


売上 高 の 大 きい 順 の 並べ か え 
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CALL aa グラ フ 準 備 ル ー チ ン へ 分 岐 
CALL bb グラ フ 作 成 ル ー チ ン へ 分 岐 
END 


DATA な 〉 250, モ -. 220. コ y ト n-. 150 
DATA テル ト n に 7, 360 





SUB aa グラ フ 準 備 ル ー チ ン 
LOCATE 1, 20: PRINT " 約 7 が ゲカ (1987) " 標題 
FOR i = 128 TO 224 STEP 32 一 ーー 凡例 の パタ ー ン 
LINE (400, i)-(440, i+ 16), , B 
PAINT (420, i+ 8), b$((i - 96) / 32) 
NEXT i 
FOR i = 8 10 14 STEP 2 
LOCATE i, 60: PRINT a$(i / 2 - 3) 
NEXT i 
LOCATE 4 29: PRINT "0 補 r ツ " 
LOCATE 3, 26: PRINT 400 
LOCATE 11, 42: PRINT 100 
LOCATE 19, 26: PRINT 200 
LOCATE 11, 10: PRINT 300 
SUB 


bb 
CIRCLE (230, 184), 100 
LINE (230, 84)-(230, fny(184, 100 - 4 * 16, fnd(0))) 基準 線 
FOR i = 1 T04 4 デー タ の 革 
PSET (fnx(230, 100 - i* 16, fnd(0)), fny(184, 100 - i* 16, fnd(0))) 
FOR q = 0 T0 fnd(aG)) + .03 STEP .05 売上 高 に 相当 する 円 紅 
x] = fnx(230, 100 - i* 16, q) 
y1 = fny(184, 100 - i* 16, q) 
LINE -(x1, y1) 

NEXT q 
x2 = fnx(230, 100 - Gi 
y2 = fny(184, 100 - (Gi 
LINE -(x2, 72) 
x3 = fnx(230, 100 - (ji - 
y3 = fny(184, 100 - (i - 
PAINT (x3, y3), b$(i) 

NEXT i 
END SUB 


【 結 果 】 











刀 例 の 商品 名 





単位 売上 高 の 値 





END 
SUB 





グラ フ の 作成 ルー チン 
円 














- 1) * 16, fnd(a(⑪))) 
- 1) * 16, fnd(a(⑪))) 


帯 の 最終 端 の 直線 





1) *16 - 8, fnd(a(i) / 2)) 一 ハッ チン ダグ 
1) * 16 - 8, fnd(a(⑪) / 2)) 





ーーーーー ユ 





ウリ ア ケ \ 2\ カ (1987 年 ネン ) 


ェ エレ クト ロニ クス 








] カテ ドン 


コン トロ ー ラ ー 

















し た と 4 
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ET 








【 応 用 問題 7】 両側 円 帯 グ ラフ 

次 表 を 両側 円 帯 グ ラフ と する プロ グラ ム を つく れ . 
男女 別 成績 
課目 | 男 | 女 


英語 | 85 | 70 

















国語 | 75 | 85 








社会 | 80 | 70 





数 学 | 88 | 75 




















【 解 説 】 ⑥ 両側 円 帯 グ ラフ を つく り ま す . 
①④ 【 応 用 問題 6】 で つく っ た 癌 グ ラフ を 応用 し , 基準 線 か ら 両 側 に と z ラジ アン を 100 点 と し て 帯 を 
表示 し ます . と れ を 両側 円 帯 グ ラフ と 名 づけ ます . 
③ と と で は デー タ の 大 き さ 順 の 並べ か え は し ませ ん . 基準 線 か ら 右 側 。 時 計 ま わり を 男子 の 成績 , 左 
側 . 反 時 計 ま わり を 女子 の 成績 と し ます 
③ 右側 の 考え 方 は 【 応 用 問題 6】 と ほぼ 同じ し ですから, その 解説 を みて く ざ た い . た だ し , デー タ の 
並べ か みえ が し て あり ませ ん の で , デー タ が 外側 より 内 側 の 方 が 大 きい 場合 その 帯 の 外側 が か け な い と 
と に な り ま す の で , 帯 の 両側 を か く と と に し ます 
【 応 用 問題 6】 の か き 方 
デー タ が 外側 の 方 が 大 きい 場合 デー タ が 内 側 の 方 が 大 きい 場合 
④ 先 に 円 を か く 


この 円 競 を か く N 


(④ こ の 円 刀 を か く この 部 分 が 表示 され な い 








⑤ つ なく 


今回 の か き 方 


PO 








① 円 を か く 


⑨ 最初 の デー タ の 曲 に 応 に た 円 音 を か く 
P0 一 P1 ま で 
③P0' 一 P1' を か く 


⑤P0' 一 P2 を か く 
ーー ーー ニー P2' を か く 
ーーー の っ な く 
④ 左側 の 考え は 右側 と 同じ で す が , 座標 値 の 表わし 方 が 送 と な り ま す - 
右側 か ら か く 場 合 の 座標 値 は C+RSIN(X)、Y 座標 値 は C-RCOS(X) で す . 
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Cruansー*=aaeopa ニ ーー 


左側 か ら か く 場 合 は X 座 標 値 は C+RCOS(X+25.14159/2), Y 座標 値 は C-RSIN(X+58.141 


59/2 ) で す . 
【 プ ログ ラム 例 】 


DECLARE SUB aa () 
DECLARE SUB bb () 
DECLARE SUB cc 0) 
DECLARE SUB dd () 
COMMON SHARED a$(0, a0, b$() 


DIM a$(1 T0 6), a(1 T0 4 1 10 2), b$(1 T0 4 















































SCREEN 0 

CLS 0 

DEF fnx (c, r, x) =c+r ま *SIN(x) 円 の 石 側 の 点 の X 座標 値 

DEF fny (c, r, x) =c -r ま * COS(x) 円 の 右側 の 点 の Y 座標 値 

DEF fnd (d) = d / 100 * 3.14159 成績 を 示す 角度 

DEF fna (c, r, x) =c+r*COS(x + 3.14159 / 2) 円 の 左側 の 点 の 座標 値 

DEF fnb (c, r, x) =c -r ま *SIN(x + 3.14159 / 2) 円 の 右側 の 点 の Y 座標 値 

b$(1) = CHRS(&HFF) ハッ チン グ 

b$(2) = CHR$(&H11) 

b$(3) = CHR$S(&H22) + CHRS(&H11) 

b$(4) = CHR$(&HC) + CHRS(&HAA) 

FOR i=1106 デー タ の 読み 込み , 課目 
READ a$(i) 

NEXT i 

FOR i=1TO4 ーー データ の 読み 込み , 点数 
READ ai, 1), ai, 2) a(i,1) が 男子 ,a(1,2) が 女子 

NEXT i 

CALL aa グラ フ 準 備 ル ー チ ン へ 分 岐 

CALL bb 男子 の 表示 

CALL cc 女子 の 表示 

CALL dd 目盛 り 線 の 表示 

END 


DATA r 全 , コ 7 イツ ャ 29 が 7 ゲッ ゲッ 
DATA 85,70,75,85,80.70,88,.75 





SUB aa 


グラ フ 準 備 ル ー チ ン 














LOCATE 1 22: PRINT "ゲゲゲ ョ パリ ャ 人 t ギ 標題 

FOR i = 128 10 224 STEP 32 過 例 
LINE (400, 1)-(440,. i+ 16), , B 
PAINT (420, i+ 8), b$((Gi - 96) / 32) 

NEXT i 

FORi=11T04 過 例 の 課目 名 
LOCATEi*2+7, 60: PRINT a$⑪) 

NEXT i 





LOCATE 19。 28: PRINT “100 





LOCATE 3, 20: PRINT " ゲ ョ 


単位 、 項 目 名 
の ッ ゲーーー | 








END SUB 

SUB bb グラ ブフ 作成 ① 
CIRCLE (230, 184), 100 外周 の 円 
LINE (230, 84)-(230, 284) 基準 線 
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3 章 円 弧 を 使っ た グラ フ 
FOR i=110 4 男子 の 4 課目 の 点 を 示す 革 
PSET (fnx(230, 100 - (i - 1) * 16, 0), fny(184, 100- ⑪⑬-1) * 16, 0)) 
FOR q = 0 10 fnd(a(i, 1)) + .03 STEP .05 4 科目 の 外側 の 円 弧 
xl = fnx(230. 100-(⑪-1) * 16, q) 
yl1 = fny(184, 100 - (i - 1) * 16, q) 
LINE -(x1, y1) 
xx] = xl: yyl1 = y1 
NEXT q 
PSET (fnx(230,. 100 - i* 16, 0), fny(184, 100 - i* 16, 0)) 一 一 4 科目 の 内 側 の 円 濾 
FOR q = 0 T0 fnd(aGi, 1)) + .03 STEP .05 
x2 = fnx(230. 100 - i*16, q) 
y2 = fny(184, 100-i*16, q) 
LINE -(x2, y2) 
XX2 = X2: yy2 = Y2 














NEXT q 
LINE (xx1, yy1)-(xx2, yy2) 帯 の 終端 の 線 
x3 = fnx(230, 100 - ⑪-1) *16 - 8, fnd(a(i, 1) / 2)) 一 ーー ハッ チン タダ 


y3 = fny(184, 100-⑪-1) *16 - 8, fnd(aG, 1) / 2)) 
PAINT (x3, y3), b$⑪) 

















NEXT i 
END SUB 
SUB cc グラ フ 作 成 ⑤ 
FOR i=110 4 女子 の 4 課目 の 点 を 示す 帯 
PSET (fna(230, 100 - (1 - 1) * 16, 0), fnb(184, 100 - 〈⑪⑬ - 1) * 16, 0)) 
FOR q = 0 TO fnd(a(i, 2)) + .03 STEP .05 4 課目 の 外側 の 円 弧 
x1 = fna(230, 100 - ⑪ - 1) * 16, q) 
yl = fnb(184, 100 - (1 - 1) * 16, q) 


LINE -(x1, y1) 

xx]1 = xl: yyl = yl 
NEXT q 
PSET (fna(230, 100 - i* 16, 0), fnb(184, 100 - i* 16, 0)) 丁 4 課目 の 内 側 の 円 弧 
FOR q = 0 TO fnd(a(i, 2)) + .03 STEP .05 

x2 = fna(230, 100 - i* 16, q) 

y2 = fnb(184, 100 - i* 16, q) 

LINE -(x2, y2) 

XX2 = x2: yy2 = y2 
NEXT q 
LINE (xx1, yy1)-(xx2, yy2) 帯 の 終端 の 線 
x3 = fna(230, 100-(i -1) *16 - 8, fnd(a(i, 2) / 2)) ハッ チン グ 
y3 = fnb(184, 100 - (1 -1) * 16 - 8, fnd(a(i, 2) / 2)) 
PAINT (x3, y3), b$⑪) 























NEXT i 

END SUB 

SUB dd 目盛 り 線 と 目盛 り 
FOR i = 70 TO0 90 STEP 10 男子 側 の 目盛 り 線 


px = fnx(230, 100, fnd(i) ) 

py = fnb(184, 100, fnd(i) ) 

LINE (230, 184)-(px, py) 
NEXT i 
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IV 応 用 編 


ーー ニー ニー ニー 





FOR i = 70 10 90 STEP 10 女子 側 の 目盛 り 線 
px = fna(230, 100, fnd(i) ) 
py = fnb(184, 100, fnd(i)) 
LINE (230, 184)-(px, py) 











NEXT i 
LOCATE 16, 16: PRINT "70" 目盛 り 数 値 
LOCATE 16, 42: PRINT “70" 目盛 り 数 値 
END SUB 
【 結 果 】 


フッ ンジ ショ ペペ ツ セイ セキ 












































トー ェ ィ コ 
正四 
央 較 Paf 
凍 国 29 カ * ワ 
【 応 用 問題 8】 虹 グ ラフ 
次 表 を 虹 グ ラフ と する プロ グラ ム を つく れ . 
商品 別売 上 高 (1988 年 ) 
品 | 売上 高 (万 円 
クー ラー 250 
モー ター| 220 
VTR | 540 
| ステ レオ | 320 
| カメラ | 100 

















【 解 説 】 ⑨ 虹 グ ラフ を つく り ま す . 

① 結果 の よう に K 帯 グラ フ の 応用 で 左端 を 基準 と し て , 半 円 弧 の 右端 まで を デー タ 量 の 100% と する 普 
を 外 か ら 内 へ 何 重 か に 表わし た も の を 虹 グ ラフ と 名 づけ ます . 

③ 考え 方 の 基本 は 【 応 用 問題 6 】 以降 の 帯 グ ラフ と 同じ で す . 基準 が 【 応 用 問題 6】 で は 12 時 , デ 
ー タ 量 の 100% を 全 周 で 表わし て いる の に 対し , 本 グラ フ で は 基準 を 9 時 の 位置 , デー タ 量 の 100 
% を 時 計 方 向 半 周 で 表わし ます . 

⑬③ と の 場合 の デー タ 量 の 最大 を 600 と する と , デー タ 量 の D の 角度 は D/600*5.14159 ラジ アン 
と な り ま す . 
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ampemtNYw い ーー ベー ペー ダー バー ニッ コー ュー ニー ーー ニー== ニ ーー ニ ェ ュ ニ ーー ェ = ニュ ーー=ー ァ = 


3 章 円 弧 を 使っ た グラ フ 









3.14159 ラジ アン が デー タ 量 600 を 表す 


デー タ 量 は /600*3.14159 ラジ アン で 表す 

④ デー タ 量 D の 角 を X と する と X, Y 座標 は 半径 を R と すれ ば 次 の よう に な り ま す 
メーR+*SIN(X+3.14159/2 ) 
ャ ニーR+*COS(X+3.14159/? ) 





デー タ 量 に 相当 する 角 
⑮ 中 心 を (520,276) とし, 一 番外 側 の 半 円 の 半径 を 196 と し , 内 側 の 半 円 と の 間隔 を R で 与え な 
お す と 
X=320-(196+R)*STN(X+5.14159/ る ) 
Y=276+(196+R ) *COS(X+3.14159/2) と な り ま す . 
(xy) 上 式 で アニ 0 と し た も の 





(*。 が 7 ) 上 式 で アニ 16 と し た も の 


(320.276) 


⑯ 具体 的 に は 次 の よう な 手順 で 表示 し ます -. 


(z1、 ) 
(x1、 1 ) 


(x3.93) 7 ー 
ーー (z2'. 92「) 
SN 


(z3.937) 


クー ラー の 値 250 に 相当 する 角 の 点 X1、Y1 を 求め ます . 半径 は 196 で す . 

クー ラー の 値 250 に 相当 する 角 の 点 X2、Y2 を 求め ます . 半径 は 196-16 で す . 

⑬③ (X1.,Y1 ) と (X2,Y2 ) を 結び ます -. 

③④ 中 間 点 (X5,Y3) を 求め ます . 

⑧⑤ (XS3,Y3 ) を 指定 し て PATNT し ます - 

⑯ ①~ こ を モー ター の 値 220 に つい て 行い ます . ① に 相当 する E は 16*2 で , 半径 は 196-22 で す . ② に 相 
当 す る R は 16*3 で 48, 半径 は 196-48 で す . 

@ 以下 同様 C VTR、 ス テレ オ , カメ ラ に つい て 行い ます . 
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IV 応 用 編 
【 プ ログ ラム 例 】 

DECLARE SUB aa () 

DECLARE SUB bb () 

COMMON SHARED a$(), a(). b$() 

DIM a$(1 TO 5). a(1 TO0 5), b$(1 10 5) 

SCREEN 0 

CLS 0 

DEF fnx (r, x) 


DEF fny (r, y) = 276 + (196 + r) * COS(y + 3.14159 / 2) 
DEF fnd (d) = d / 600 * 3.14159 


320 - (196 +r) * SIN(x + 3.14159 / 9 一 本 


デー タ 量 に 相当 する 半 円 周 上 の 
点 の x, 座標 値 





bS(1) = CHRS(&HFF) 


デー タ 量 に 相当 する 角度 





b$(2) = CHRS(&H11) 

b$(3) = CHRS(&H22) + CHRS(&H11) 
b$(4) = CHRS(&HC) + CHRS(&HAA) 
b$(5) = CHRS(&HC) + CHRS(&HA) 


中 昨 昌 用 1 


ハッ チン グ パ ター ン の 登録 


デー タ の 読み 込み 





FORi=1105 
READ aSG), a(⑪) 





NEXT i 
CALL aa 


グラ フ 準 備 ー チ ン へ 分 岐 








CALL bb 
END 
DATA 171 ,250, モ 1 名 ,220,VTR 
DATA 7 叶 ,320.7 ,100 


,540 


SUB aa 


グラ フ 作 成 ル ー チ ン へ 分 岐 


グラ フ 準 備 





LOCATE 1, 28: PRINT "39EyA" 7 997 ゲ タダ 】(1987) ーーーーー 一 


FORi=0 TO 9 一 一 一 ーーーーーーーーーーーーーーーーーー 一 一 - 直線 十 円 弧 の 表示 

















LINE (128+i*16 - 4, 276)-(128+i*16-4. 376) 
CIRCLE (320, 276), 196 - 16 * ii , 0, 3.14159 
LINE (520 - i*16 - 4, 276)-(520 - i* 16 - 4 376) 
NEXT i 一 一 ーーーーーーーーーーーーーーーーーーーーーー ーー ーー 
LINE (116, 276)-(268, 276) 部 品名 を か く 部 分 の 横線 
LINE (524, 276)-(372. 276) 
LINE (124, 376)-(268, 376) 
LINE (516, 376)-(372, 376) 一 ーーーーーーーーーーーーーーー 
FORi=1105 商品 名 
LOCATE 19、13+ 4* ji: PRINT MIDS(aS(⑪), 1, 1) 
LOCATE 20. 13+ 4*i: PRINT MIDS(aS(⑪i), 2. 1) 
LOCATE 21. 13+ 4 * ji: PRINT MIDS(aS(i), 3, 1) 
LOCATE 22.13+ 4 * ii: PRINT MIDS(aS(i), 4, 1) 
LOCATE 19. 44+4* ii: PRINT MIDS(aS(6 - 1), 1, 1) 
LOCATE 20. 44+4* ii: PRINT MIDS(aS(6 - 1), 2, 1) 
LOCATE 21, 44+4* ji: PRINT MIDS(a$(6 - 1), 3, 1) 
LOCATE 22. 44+4* ii: PRINT MIDS(a$(6 - i), 4, 1) 一 
LOCATE 18, 13: PRINT "0" 目盛 り 数 値 と 単位 
LOCATE 11, 15: PRINT “100" 
LOCATE 6, 25: PRINT “200" 
LOCATE 4, 40: PRINT “300" 
LOCATE 6. 54: PRINT “400" 
LOCATE 11, 64: PRINT “500" 
LOCATE 18, 68: PRINT "600?yr グ " 
ii=i*100 
LINE (fnx(8, fnd(ii)), fny(8, fnd(ii)))-(fnx(0, fnd(ii)), fny(0, fnd(ii))) 一 目盛 り 線 
NEXT i 
END SUB 
SUB bb 帯 表示 
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3 章 円 弧 を 使っ た グラ フ 


FOR i = 1 T0 5 ーー 一 ーーーーーーーーーー 一 帯 の 終端 部 の 表示 
ji=(4-4*i)*8 


iii =iiー16 区 切り 線 
LINE (fnx(Gii. fnd(a⑪⑬)). fny(ii。 fnd(aG))))-Gnx(iii. fnd(aG⑪))), fnyGii, fnd(a(G)) 





PAINT (fnx(Gi - 9), fnd(aG⑪) / 2)), fny(Gi - 9, fnd(aG) / 2))), bSG) 
NEXT i 
END SUB 


【 結 果 】 


ショ ウ ヒ ン ペ トド ツ ウリ アク * 2* カ (1988 ネ ン ) 


3200 ーー 









ィ ソノ ク ァ 


PIN 
SN 


500 


pe ae 

フロ % 

HH NGN 、 
NN NX。 

リー | NN 


ァ ン ーー へ ON 幅 い 





600 マ ニン ェ ン 


No ツ ダグ 





【 応 用 問題 9】 放射 線 グ ラフ 
の 表 を 放射 線 グ ラフ に する プロ グラ ム を つく れ . 


交通 量 調査 (1989 年 10 月 10 日 ) 





時 間 | 1000 台 | 時 間 | 1000 台 | 時 間 | 1000 台 | 時 間 | 1000 台 
ゴ 





1 100 7 250 13 | 180 19 490 





2 50 8 500 14 190 20 420 





3 60 9 400 15 250 21 320 





4 90 10 350 16 400 22 250 





5 120 11 300 17 | 470 23 200 








6 180 12 250 18 500 24 100 | 


















































【 解 説 】 〇 放射 グラ フ を つく り ま す . 
① 中 心から デー タ 量 に 応じ し た 長 さ の 棒 を 放射 線 状 に か く グ ラフ を 放射 線 グ ラフ と 名 づけ ます 





最大 値 の 位 軒 


0 の 位置 
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IV 応 用 編 


③ 中 心 を (500 ,200) と し , 半径 を 80 の 円 を か きま す . これ が 真中 の 円 で 統計 量 0 の 基準 と な り 
3 

③ と と で は 1 時 か ら 24 時 まで 24 個 の 時 系 列 デ ー タ を 時 計 ま わり で 表示 し ます . 

④ 1 時 の デー タ を 100 と する と 次 の よう な 手順 で 表示 し ます . 

















① 全体 で 24 本 の 棒 を 表示 し ます か ら , 1 時 の 位置 角 P0-0-P1 は 1/24*2*3。14159 ラジ アン で す . PO-0-P 
1 の 角 を 中 心 に し て 棒 の 幅 を も た せる た め -0.8 ラジ アン と +0.8 ラジ アン の 角 を 考え ます . 中 心 (300,200), 半 
径 80 で , 角 を 1/24*2*3.14159-0.8 ラジ アン の 点 が P2, 角 を 1/24*2*8.14159+0.8 ラジ アン の 点 が セ 
8 で す . P2 が 棒 の か き 始 め の 点 、P3 が 棒 の か き お えた 点 で す . 

③② 次 KC 棒 の 長 さ は 半径 20 ドッ ト に つい て 100 台 と し ます の で , デー タ 量 /100*20 が 棒 の 長 さ で す . 中 心から 
の 長 さ (半径 ) で は それ (< 80 を 加え た も の で す . 

⑬ したがって, 中 心 を (300 ,200), 半径 を 80+100/20 角度 を 1/24*2+3。14159-0.8 ラジ アン の 点 P4 
と , 角度 を 1/24*2*8.14159+0.8 ラジ アン の 点 P5 を 求め P2-P4-P5-P3 と 結ぶ と 棒 C な り ま す . し か し , 
棒 の 長 さ が 長く な れ ば な る ほど , 先 が 開 く < 扇形 に な り ま す の で , 一 工夫 し ます . 

(④ PO0-0-P1 か ら -0.6 ラジ アン , +0.6 ラジ アン の 角 を 先端 で は 使い ます . 半径 (300,200), 半径 80+100/ 
100*20 角度 を 1/24*2*5.14159-0.6 ラジ アン の 点 を P6, 角度 を 1/24*2+*8.14159+0.6 ラジ アン の 点 を 
PF7 と し ます . F2-P6-P7-P5 を 結び ます . 棒 と な り ま す . 


【 プ ログ ラム 例 】 





DECLARE SUB aa () 
DECLARE SUB bb () 
COMMON SHARED a(), b$ 
DIM a(1 TO 24) 








SCREEN 0 

CLS 0 中 心 の * 座標 を c、 半径 を r, 角 を x と する 円 周 

DEF fnx (c, r, x) =c+r * SIN(x) ーー 一 一 一 上 の 点 の x 座標 値 

DEF fny (c, r, x) = c - r * COS(x) ーーーーーーー 中 心 の Y 座標 値 を c, 半径 を r, 角 を と する 円 周 上 

DEF fnd (d e) =d/24*2*3.14159+ 和志 

DEF fne (⑪) =f /100*20+80 D 時 (D は 1 から 24) の と き の 角 を 中 心 と し て +e。 

b$ = CHR$(&H22) + CHR$(&H11) 一 ハッ チン グ ー-e ラジ アン の 角 

FOR i = 1 TO 24 デー タ の 読み 込み デー タ 量 T ず に 相当 する 棒 の 長 さ +80 で *『 相当 する 
READ ai) 半径 を 示す 

NEXT i 

CALL aa ニーーーーーーーーーー グラ フ 準 備 ー チ ン へ 分 岐 

CALL bb 一 一 一 一 ーーーーー グラ フ 作 成 ル ー チ ン へ 分 岐 

END 


DATA 100, 50, 60, 90, 120, 180, 250, 500, 400, 350, 300, 250 
DATA 180,190, 250, 400, 470, 500, 490, 420, 320, 250, 200, 100 
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っ mens メー ュー ペー ター ター ニュ ーー ニニ ーーear キ ーー で ヘー ニー ニー 


3 章 円 弧 を 使っ た グラ フ 








SUB aa 


LOCATE 1, 26: PRINT "1999939 旋 放 (1989 福 10 が 710" 


グラ フ 準 備 ー チ ン 
標題 





LOCATE 9, 37: PRINT 0 時 間 と 目盛 り 数 値 。 単位 


LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
END SUB 


SUB bb 


10, 
13, 
16, 
17, 





: PRINT ゲ “ 

: PRINT 6 

・ PRINT 1 

: PRINT 2 

・ PRINT 18 

: PRINT 2 

: PRINT 3 

: PRINT 4 

: PRINT "5 (100 が 0" 








グラ フ 作 成 ル ー チ ン 


0R6MB (800 2000 80 ピー ミミ 圧 


FOR i 
PS 
x1 
y1 
X2 
Y2 
x3 
Y3 
Ll 
LI 


LINE 


x4 
y4 


NEXT 
FOR i 


= 1 10 24 


棒 の 作成 





ET (fnx(300, fne(0), fnd(i, -.08)), fny(200, fne(0), fnd(i, -.08))) 琴 


上 有明 目 明 目 日 


NE 
NE 


i 


fnx(300, fne(a(⑪)), fnd(i, -.06)) 
fny(200, fne(a(⑪)), fnd(i, -.06)) 
fnx(300, fne(a(i)), fnd(i, .06)) 
fny(200, fne(a(i)), fnd(i, .06)) 
fnx(300, fne(0), fndGi, .08)) 
fny(200, fne(0), fnd(i, .08)) 
-(x1, y1) 

-(x2, y2) 

-(x3, y3) 


= (x1 + x3) / 2 ハッ チン グ 
= (y1+ y3) / 2 
PAINT (x4, y4), b$ 











CIRCLE (300, 200), i 


NEXT 
END SUB 
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【 結 果 】 


= 100 10 180 STEP ーー | 


コウ ツウ リョ ウ チョ ウサ (1989 ネン 10 カ ー ツ 10 カ ) 


5 (100 2* イ ) 








V 応 用 編 


に ーー ュー ニャ ニ デット ーー デュー ニー モー ニー ュー 





ーー や ーッ ーー ュー 





【 応 用 問題 10】 レー ダー チャ ー ト 
下 表 を レー ダー チャ ー ト に か く プ ログ ラム を つく れ . 























月 別売 上 
月 | 売上 ( 100 万 円 ) | 月 | 売上 ( 100 万 円 ) | 
1 80 7 140 | 
2 | 60 8 90 
3 180 9 150 | 
4 160 10 160 
5 170 11 130 
6 120 12 120 | 
































【 解 説 】 〇 レー ダー チャ ー ト を つく り ま す . 
① 下図 の よう な 考え で レー ダー チャ ー ト を つく り ま す . 


月 2 月 半 任 の 長き を 
200( 百 万 円 ) の 売上 量 と する 





し た が っ て 例え ば 3 月 の 売上 180 
は 半 儲 *180/200 と な る 


円 を 1 月 一 12 月 の 12 分 割 する 

6 月 し た が っ て 、 1 月 の 角度 は 
2*3.14159/12 ラ ジア ン 

し た が っ て , 中 心 を C、 デー タ 量 を D, 円 の 半径 を 200 と する と M 円 の 値 の ドッ ト の 表示 位置 は 

X=C+200*180/200*STN(M+*2+5.14159/12) 

Y=C-200*180/200*COS(M+2+3.14159/12) と な り ま す -. 


【 プ ログ ラム 例 】 


DECLARE SUB aa () 

DECLARE SUB bb () 

COMMON SHARED a() 

DIM a(1 TO 12) 

SCREEN 0 

CLS 0 

DEF fnx (c, r, x) =c+rT*SIN(x /12*2*3. kc 
DEF fny (c, r, x) =c-r*COS(x / 12 * 2 * 3.14159) * 立 座 標 値 

DEF fnd (d) = d / 200 * 100 デー タ 量 に 相当 する 半径 


FOR i = 1 10 12 デー タ の 読み 込み 円 の 半径 が 100 
READ a(⑪) 


ェ ュー ルー 














CALL aa グラ フ 作 成 準 備 ル ー チ ン へ 分 岐 
CALL bb グラ フ 作 成 ル ー チ ン へ 分 岐 
END 


DATA 80,60,180,.160,170,120 
DATA 140, 90,150,160, 130, 120 
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3 章 円 弧 を 使っ た グラ フ 





SUB aa 
LOCATE 


グラ ブフ 作成 準備 ルー チン 


4, 29: PRINT "4Y り 9 が ゲカ (1988 補 )"ーーー 探題 





LOCATE 6, 37: PRINT "12 が ゲ 
LOCATE 13, 52: PRINT "3 が ゲ 
LOCATE 20, 38: PRINT "6 が 
LOCATE 13, 21: PRINT "9 が ゲ 
LOCATE 9, 50: PRINT "100Y エ メ 


半 項目 名 , 単位 





LOCATE 11, 45: PRINT "50Y バ エバ 





CIRCLE (300, 200), 100 
CIRCLE (300, 200), 50 
FOR i 1 TO 12 

x = fnx(300, 100, 1) 


日 昌 日 


間 と 目盛 り 線 の 表示 

















y = fny(200, 100, i) 
LINE (300, 200)-(, y) 
NEXT i 
END SUB 
SUB bb グラ フ 作 成 ル ー チ ン 
PSET (fnx(300, fnd(a(12)), 0), fny(200, fnd(a(12)), 0))- プロ ッ ト 
FOR i = 1 10 12 12 月 -1 月 
x = fnx(300, fnd(aG⑪)), 1) ご 9 用 kos 
y = fny(200, fnd(a(⑪)), 1) -12 月 の デー タ を 順に むす ぶ 
LINE -(x, y) 
NEXT i 
END SUB 
【 結 果 】 


月 ツリ ウリ アク 2Y2 カ (1988 ネ ン ) 





39 ら 5 


IV 応 用 編 








【 応 用 問題 11】 絵画 グラ フ 
下 の 業 種別 景気 状況 を , 景気 の 状態 ど と の 顔色 で 表わす 絵画 グラ フ を つく れ . な お , 景気 の 
状況 は ① 超 繁忙 ⑤ 好 景気 普通 ④ 不 調 ⑤ 不 景気 と し . お の お の の 顔色 は , 結果 の よう 
な マー ツ グ と ずる 。 
業種 別 景気 予想 
業 種 
化学 工業 
鉄鋼 業 
繊維 工業 | 不況 
| 電 栓 工業 | 不調 
機械 工業 | 超 繁 忙 
商業 | 不況 





銘 
KR 
嘱 


= 








喉 | 没 
油 
ll 





























【 解 説 】 ⑨ 絵画 グラ フ を つく り ま す . 
① 景気 の 状況 に よる 顔色 を 5 種 用 意 し ます . お の お の , グラ フィ ッ ク で 表示 し た 後 配列 A4%ーE% に 
GEBT9 で と り と み ま す . 








好景気 の 例 を 示し ます . 
中 心 (40.40 ) 
半径 8 の 半 円 中 心 (60.40) 半 儲 8 の 半径 
中 心 (60.45), 半径 5 の 半幅 
中 心 (40.45 ) N 半生 
半径 5 の 半幅 レー デー - 中 心 (50.50) 半径 30 の 円 


(50,45 ) と (50.60) を むす ぶ 
中 心 (50.60). 半 径 8 の 半幅 


左上 (20,20) と 石 下 (80,80) を 指定 し て 配列 B% ic 取り 込む 
② 表 の 枠 , 文字 を 表示 し , 絵画 の 部 分 に 顔色 が 格納 され て いる 配列 を PUT で 表示 し ます 


























(84.104) (164.104) 80 ド ッ ト 
(564.104) 
化学 工業 鉄鋼 業 | / 商業 
(84,135) 一 (564,136) 
ーー 
PUT す る 1 
左上 の 座標 ! 
(564.232) 
(84,232) 
好景気 普通 
/ (564.264) 
(84.264) (164、264) 
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3 章 円 弧 を 使っ た グラ フ 


【 プ ログ ラム 例 】 


DECLARE SUB aa () 

DECLARE SUB bb () 

DECLARE SUB cc () 

DECLARE SUB dd () 

DECLARE SUB ee () 

DECLARE SUB ff () 

DECLARE SUB gg () 

COMMON SHARED a%(), b%O0, c%0. d%0, e%0, a$0. DS 
DIM a%(1000), b%(1000), c%(1000), d%(1000), e%(1000) 
DIM a$(1 10 6, 1 T0 2), b$S(1T0 5) 

SCREEN 0 


CLS 0 
a$(i,1 ) Cc 業種 名 、a$( 1,2) に 景気 の 状態 


FOR i=1T06 
READ a$Gi, 1), a$(i, 2 1-5 を 読み 込む 

NEXT i 

FORi=1TO5 景気 状態 の 文字 列 を 読み 込む 
READ b$⑪) 


NEXT i 
CALL aa 
CALL bb 
CALL cc 
CALL dd 
CALL ee 
CLS 0 
CALL ff 一 一 一 一 一 ーーーーーーーーー グラ ノブ フ 作成 準備 ルー チン へ 分 岐 
CALL gg ーーーーーーーーーーーー グラ フ 作 成 ル ー チ ン 

END 

DATA 化学 工業 , 2, 鉄鋼 業 , 3, 人 5 

DATA 電機 工業 , 4, 機械 工業 , 1, 商 

DATA 超 上 繁 忙 , 好景気 , 普通 , 不調 , 不 


SUB aa 顔色 1 の 配列 a% へ の 取り 込み 
CLS 0 
CIRCLE (50, 50), 30 
CIRCLE (40, 40), 8, , 0, 3.14159 
CIRCLE (60, 40), 8, , 0, 3.14159 
CIRCLE (40, 45), 5, , 0, 3.14159 
CIRCLE (60, 45), 5, , 0, 3.14159 
LINE (50,45)-(50, 60) 
CIRCLE (50, 60), 8, , 3.14159, 2 * 3.14159 
GET (20, 20)-(80, 80), a% 

END SUB 





5 種 の 顔 の 入る 配列 








氏 気 ご ど と の 顔 の パタ ー ン の 取り 込み 





聞 








SUB bb 顔色 2 の 配列 b% へ の 取り 込み 
CLS 0 
CIRCLE (50, 50), 3 
CIRCLE (40, 40), 8, , 0, 3.14159 
CIRCLE (60, 40), 8, , 0, 3.14159 
5 
5 





0 


CIRCLE (40, 45), 5, , 3.14159, 2 * 3.14159 
CIRCLE (60, 45), ,。 3.14159, 2 * 3.14159 
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PP 





END 


SUB 


END 


SUB 


END 


SUB 


END 


SUB 


END 


Fame ュー ーー ー ーーcー い ニテ ーー ーー ペー テー ドーe ハ ニー ニー ペペ ニー デーーー ュ ニニ ニー 


LINE (50, 45)-(50, 60) 

CIRCLE (50, 60), 8. , 3.14159, 2 * 3.14159 
GET (20, 20)-(80, 80), b% 

SUB 


cc 顔色 8 の 配列 c% へ の 取り 込み 
CLS 0 

CIRCLE (50, 50), 30 

CIRCLE (40, 40), 8, , 0, 3.14159 

CIRCLE (60, 40), 8, , 0, 3.14159 

CIRCLE (40, 45), 5, , 3.14159, 2 * 3.14159 
CIRCLE (60, 45), 5, , 3.14159, 2 * 3.14159 
LINE (50, 45)-(50, 60) 

LINE (40, 65)-(60, 65) 

GET (20, 20)-(80, 80), c% 

SUB 





dd 顔色 4 の 配列 d% へ の 取り 込み 
CLS 0 

CIRCLE (50, 50), 30 

LINE (32, 35)-(48, 35) 
LINE (52, 35)-(68, 35) 
LINE (34, 45)-(46, 45) 
LINE (54, 45)-(66, 45) 
LINE (50, 47)-(50, 60) 
LINE (40, 65)-(60, 65) 
GET (20, 20)-(80, 80), d% 
SUB 





ee 顔色 5 の 配列 e% へ の 取り 込み 
CLS 0 

CIRCLE (50, 50), 30 

LINE (35, 30)-(45, 40) 
LINE (55, 40)-(65, 30) 
LINE (32, 55)-(45, 45) 
LINE (55, 45)-(68, 55) 
LINE (50, 50)-(50, 60) 
LINE (40, 70)-(50, 65) 
LINE -(60, 70) 

GET (20, 20)-(80, 80), e% 











SUB 
ff グラ ブフ 作成 準 備 ル ケー チン 
LOCATE 5, 33: PRINT "業種 別 景気 予想 " 棟 題 
FOR i = 84 T0 564 STEP 80 表 の わく 

LINE ⑪, 104)-G, 264) 
NEXT i 


LINE (84, 104)-(564, 104) 
LINE (84, 135)-(564, 136) 
LINE (84, 232)-(564, 232) 
LINE (84, 264)-(564, 264) 
SUB 


39 ざ 





SUB gg 


FORi=1106 
LOCATE 8, 2+i*10: PRINT a$i, 1) 





x = VAL(a$(i, 2)) 
LOCATE 16, 4+i*10: PRINT b$(x) 


IF a$(i, 
IF a$i, 
IF a$GG, 
IF a$(i, 
IF a$(i, 


NEXT i 
END SUB 


【 結 果 】 


"1" THENPUT (16 + 80 
"2" THEN PUT (16 + 80 
"3”" THEN PUT (16 + 80 
"4" THENPUT (16+ 80 
"5" THEN PUT (16+ 80 


業種 別 隷 気 予 相 
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* 
* 
* 
* 
* 





ーー ーー ーー ー・ レー・ 


化学 工業 | 鉄 領 業 本 業 | 電工 業 機械 工業 


150), 
150), 
150), 
150), 
150), 






3 章 円 弧 を 使っ た グラ フ 


絵 の 表示 
6 業種 名 の 表示 
景気 状態 の 表示 


a% 顔 の 表示 
b% 
c% 
d% 
e% 


IV 応 用 編 


VPSSCSaaa name ニー ュー ニー ーー テッ マン ss ーー ニー ュー ャ エキ ーー エー モニ ーッ キュ マニ ニン ae ーー ニー ュー デュ ee 


4 章 媒介 変数 を 使っ た 図形 





【 応 用 問題 12】 円 
円 を 表示 する プロ グラ ム を つく れ . 











【 解 説 】 〇 媒介 変数 を 使っ て 円 を 表示 し ます . 

① 円 の 表示 は 媒介 変数 を 使う と 便利 で す . この 方 法 は 一 般 に よく 使わ れる 方 法 で すか ら 少 し で も る グラ 
フィ ッ ク を し た 人 は ど ご 存 知 で し ょ う . 復習 と 媒介 変数 の 意味 を 確認 する た め に あえ て 説明 し ます -. 

3 下図 の 円 周 上 の 点 P は 次 の よう Cc 表 わ せ ます 


P(X、Y) 


DE 


X=RCO0S(A) 
ッ =RSTN(A) 
た だ し , 0 を 原点 と する 半径 R の 円 で X 軸 と 0P を 結ぶ 直線 の つく る 角 を A と し ます . 
⑬ と の と き A の 値 を 変え る と (X, Y) の 値 は 円 周 上 の 点 P と な り ま す -. 
(⑥ し た が っ て , 4 を 0 度 か ら 360 度 ま で , 細か い 間 隔 で た と えば 1 度 ず つ 増 や し その 点 を PSET 
(表示 ) する か , 1 つ 後 の 点 と 順に 結ん で いけ ば 円 と な り ま す . 
⑤ と の よう に K, 4 の 値 を 変化 させ る こと で 図形 が 描け ます . この 4 を 媒介 変数 と 呼び ます . 本 章 で 
は 媒介 変数 を 使っ て いろ いろ な 図形 を 表示 し ます . 





【 プ ログ ラム 例 】 
SCREEN 0 
CLS 0 
DEF fnx (x) = 300 + 50 * COS(x) え の 定 義 
DEF fny (x) = 200 - 50 * SIN(x) Y の 定義 








PSET (fnx(0), fny(0)) スタ ー ト 点 へ ポイ ンタ を お く 
FOR i = 0 T0 2 * 3.14159 STEP .01 作図 
LINE -(fnxG⑪), fny(i) ) 





NEXT i 
END 
【 結 果 】 リン Ne 
/ \ 
し ) 
\N、 ノ 


4 章 媒介 変数 を 使っ た 図形 








ーー デー キー ニテ ェ ャ テコ ーッ = ュー ュー テニ ーー ニー ューー ェ デュー = コー ニーmarr ニ コー 





【 応 用 問題 13】 三 ツ 葉 
三 ツ 葉 の 曲線 を か く プ ログ ラム を つく れ . 














【 解 説 】 
① X=300+50C0S(2x)+50C0S(x) 
Y=200-508IN(2x)+508TN(x) と し て x を 0 ラジ アン か ら 2r ラジ アン まで 0 .1 ラジ アン 単 
位 で 増加 させ て , LTNE 文 で 結び ます . 
⑧ 結果 の よう な 花びら 形 と な り ま す . 
【 プ ログ ラム 例 】 


SCREEN 0 
CLS 0 

DEF fnx (x) = 300 + 50 * COS(2 * x) + 50 * COS(x) 
DEF fny (x) = 200 - 50 * SIN(2 * x) + 50 * SIN(x) 
PSET (fnx(0), fny(0)) 
FOR i = 0 10 2 * 3.14159+ .1 STEP .1 

LINE -(fnx(⑪), fny(1)) 

NEXT i 
END 


【 結 果 】 





円 周 上 の 点 の 叉 座標 値 
円 周 上 の 点 の Y 座標 値 
図 の 表示 























【 応 用 問題 14】 5 枚 の 花びら の 形 
【 応 用 問題 13】 の 3 枚 の 花びら の 形 を 変形 し , 5 枚 の 花びら の 形 と する プロ グラ ム を つく れ . 











【 解 説 】 ⑨ 5 枚 の 花びら の 形 を つく り ま す . 
① 【 応 用 問題 13】 の プロ グラ ム を 変形 し ます . 
⑨⑤  X=300+50CO0S( 4x)+50C08(x) 
Y=200-50SIN(4x)+508IN(x) と し ます . 
基本 形 が x で あっ た 部 分 の 一 部 を 4 々 と し て いま す . 
⑬ と の 結果 , 5 枚 の 花びら の 形 と な り ま す . 4x の 4+1 が 花びら の 数 で す . し た が っ て , と と を 変 
化 さ せれ ば , 何 枚 の 花びら で も か け ま す . 





IV 応 用 編 


ーーー テ ー エ ュー デュ < ドー ニーー- つこ ニ ペ ーーー ニテ テー エ Pa で aaa ンーamaemaeemmmaeem キ ニュ ee ニー ニー ニャ ニュー ニー ペー 

















【 プ ログ ラム 例 】 
SCREEN 0 
CLS 0 
DEF fnx (x) = 300 + 50 * COS(4 * x) + 50 * COS(x) X 座標 値 
DEF fny (x) = 200 - 50 * SIN(4 * x) + 50 * SIN(X) Y 座標 値 
PSET (fnx(0), fny(0)) i を 0 か ら 2 ァ まで (fnx,fny) 
FOR i =0TO2*#*3.14159 + .1 STEP .1 点 を むす な 

LINE -(fnx(⑪), fny(i) ) 

NEXT i 
END 

【 結 果 】 








【 応 用 問題 15】 三 ツ 葉 の 変形 1 
【 応 用 問題 13】 の 花びら の 形 を 【 結 果 】 の よう KC 変 形 さ せる プロ グラ ム を つく れ . 











【 解 説 】 
① 【 応 用 問題 143】 の プロ グラ ム を 変形 し ます . 
③ X=800+50C08(2x)+50C0S(x) 
Y=200-100SIN(2x)+100SIN(x) と し ます . 
基本 形 が 50 で あっ た 一 部 を 100 と し ます 
⑬ と の 結果 , 縦 方 向 が 長く な っ た 形 と な り ま す . これ は Y の 値 ( 縦 方 向 ) を 変え た て いま すか ら , 終 
方 向 の み が 変 化す る の は 当然 で す . 
④ 100 の 部 分 を 大 きく する と 縦長 、 送 に 小さ くす る と 縦 短 と な り ま す . 
⑤ 簡単 に 類推 で きる よう に ェ * の 値 を 変え れ ば 横長 , 横 短 と な り ま す . 
50C0S(2x)+50C08(x) の 50 を 変え て 試み て くだ さい . 








【 プ ログ ラム 例 】 
SCREEN 0 
CLS 0 
DEF fnx (x) = 300+ 50 * COS(2 * x) + 50 * COS(x) * 座標 値 
DEF fny 《) = 200 - 100* SIN(2 * x) + 100 * SIN(X) \ 座標 値 





PSET (fnx(0), fny(0)) さ を 0 か ら 2z まで 

FOR i = 010 2 *3.14159+.1 STEP .1 (59. 放 時 
LINE -(fnx(⑪), fny(i)) 

NEXTi 


END 


02 


Ne my ーー heisieiin 


【 結 果 】 








【 応 用 問題 16】 三 ツ 葉 
【 応 用 問題 13】 の 花びら の 形 を 【 結 果 】 の よう KC 変 形 さ せる プロ グラ ム を つく れ 











【 解 説 】 
①③ 【 応 用 問題 12】 の プロ グラ ム を 変形 し ます . 
③ X=300+100C0S(2x)+50C08(x) 
Y=200-508IN(2x)+1008IN(x) と し ます -. 
基本 形 が 50 で あっ た 一 部 を 100 と し ます -. 
③ と の 結果 ,【 結 果 】 の よう な 図 と な り ま す . 














【 プ ログ ラム 例 】 
SCREEN 0 
CLS 0 
DEF fnx (x) = 300 + 100 * COS(2 * x) + 50 * COS(x) X 座標 値 
DEF fny (x) = 200 - 50 * SIN(2 * x) + 100 * SIN(x) Y 座標 値 
PSET (fnx(0), fny(0)) i を 0 か ら 2zr ま で 
FOR i= 0 10 2 * 3.14159 + .1 STEP .1 (fnx,Fny) 点 を むす ぶ 
LINE -(fnx(⑪), fny⑪)) 
NEXT i 
END 
【 結 果 】 ーー 
( 


"ae 





【 応 用 問題 17】 無限 大 
無限 大 の マー ク oo を つく る プロ グラ ム を つく れ . 











【 解 説 】 ⑨ 無限 大 の マー ク を つく り ま す . 
① X=300+50C0S(x)+50COS(x) 
Y=200-50STN(COS(x)*SIN(x) ) と し ます . 
⑨ 無限 大 の マー ク と な り ま す 
③⑬ 4 人 ケ所 50 の 値 , 4 ケ所 の x の 値 を 変化 させ る と 無限 の 変形 が で きま す . いろ いろ と 試み て くだ さい . 














【 プ ログ ラム 例 】 
SCREEN 0 
CLS 0 
DEF fnx (x) = 300 + 50 * COS(x) + 50 * COS(x) X 座標 値 
DEF fny (x) = 200 - 50 * SIN(COS(x) * SIN(x)) Y 座標 値 
PSET (fnx(0), fny(0)) 1i を 0 か ら 2zr ま で 
FOR i = 0 10 2*3.14159 + .1 STEP .1 (fnx,fny) 点 を むす ぶ 
LINE -(fnx(⑪), fny(i) ) 
NEXT i 
END 
【 結 果 】 
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【 応 用 問題 18】 魚 
【 結 果 】 の 魚の パタ ー ン を つく る プロ グラ ム を つく れ . 











【 解 説 】 〇 魚の パタ ー ン を つく り ま す . 

① X=300+100C08(x)+100COS(COS*(x) ) 
Y=200-508IN(COS(x)・SIN(x) ) 

と し て X を 0 か ら 2r ァ ラジ アン まで か きま す . 

③ と の 他 に も いろ いろ の パタ ー ン が つく れ ま す の で 試み て くだ さい 

















【 プ ログ ラム 例 】 

SCREEN 0 

CLS 0 

DEF fnx (x) = 300 + 100 * COS(x) + 100 * COS(COS(x) * COS(X) ) X 座標 値 

DEF fny (x) = 200 - 50 * SIN(COS(x) * SIN(x) ) Y 座標 値 

PSET (fnx(0), fny(0)) i を 0 か ら 2r ま で 

FOR i =0TO2 ま *3.14159 + .1 STEP .1 (fnx,fny) 点 を むす ぶ 
LINE -(fnxG⑪), fny(i) ) 

NEXT i 

END 


と (/ と 4 





4 章 媒介 変数 を 使っ た 図形 





= = こっ > シー ーー と っ と ニー ジー 


の RS こ 細 | 
se レグ 


【 結 果 】 








【 応 用 問題 19】 アス テロ イド 曲線 
アス テロ イド 曲線 を か く プ ログ ラム を つく れ . 
































【 解 説 】 ③ 〇 アス テロ イド 曲線 を か きま す . 

① X=300+150C08*( テ ) 
Y=200-150STIN*(x) と し ます . 

⑧ 【 結 果 】 の アス テロ イド 曲線 と な り ま す . 


【 プ ログ ラム 例 】 
SCREEN 0 
CLS 0 
DEF fnx (x) = 300 + 150 * COS(x) * COS(x) * COS(x) 
DEF fny (x) = 200 - 150 * SIN(x) * SIN(x) * SINX) 


LOCATE 2, 16: PRINT "ASTEROID" 

LINE (300, 20)-(300, 380) 

LINE (100, 200)-(500, 200) 

LOCATE 1, 38: PRINT "YY 

LOCATE 14, 39: PRINT "0" 

LOCATE 13, 66: PRINT "X 

PSET (fnx(0), fny(0)) 

FOR i = 0 10 2*3.14159 + .1 STEP .1 
LINE -(fnx(⑪), fny(i) ) 

NEXT i 

END 


【 結 果 】 


ASTEROID 











【 応 用 問題 20】 円 の 伸 開 線 (イン ボリ ュー ト ) 
円 の イン ボリ ュー ト を か く プ ログ ラム を つく れ . 





0 を 


IV 応 用 編 








【 解 説 】 〇 円 の 伸 開 線 (イン ボリ ュー ト ) を か きま す -. 

① イン ボリ ュー ト の XY 座標 は 次 の よう に な り ま す . 
X=a(ocos(d)+dsin(d) ) 
Y=a(sin(d)-dcos(d) ) 

⑨ X, Y 座標 を d を 0 ラジ アン か ら 40* ァ ラジ アン まで 求め て 結び ます 
と と で は a を 1 と し ます . 


【 プ ログ ラム 例 】 
SCREEN 0 
CLS 0 
DEF fnx (d) = 300 + (COS(d) + d* SIN0) 一 本 座標 値 の 定義 
DEF fny (d) = 200 - (SIN(d) - d * COS(d) 


PSET (fnx(0), fny(0)) 表示 
FOR i = 0 TO 40 * 3.14159 + .1 STEP .1 
LINE -(fnx(⑪), fny(i) ) 
NEXT i 
END 
【 結 果 】 
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